NAVAL POSTGRADUATE SCHOOL 
Monterey , California 




THESIS 

K-4-iS3Lo 



A 

THE 


COMPUTER-AIDED INSTRUCTION 
PROGRAM FOR TEACHING 
TOPS20-MM FACILITY ON THE DDN 




by 




Tae Woo Kim 




June 1988 


Thesis Advisor: Neil C. Rowe 



Approved for public release; distribution is unlimited 



T242003 



^ C LASSIFIE D . 



L,R»TY CwASS = CA T, ON O- ^ S -AGE 



REPORT DOCUMENTATION PAGE 



REPORT SECURITY C.ASSIF CAT ON 

Unclassified 



lb RESTRICTIVE MARKINGS 



SECURITY CLASSIFICATION AUT mORiTY 



DECLASSIFICATION DOWNGRADING SCHEDULE 



3 DISTRIBUTION AVAILABILITY OF REPORT 
Approved for public release; 
Distribution is unlimited 



PERFORMING ORGANIZATION REPORT NUMBER(S) 



5 MONITORING ORGANIZATION REPORT NUMBER(S) 



NAME OF PERFORMING ORGANIZATION 

Javal Postgraduate School 



6b OFFICE SYMBOL 
(If applicable) 
Code 52 



7a NAME OF MONITORING ORGANIZATION 

Naval Postgraduate School 



ADDRESS (City, State, and ZIP Code) 



Monterey, California 93943-5000 



7b. ADDRESS (City, State , and ZIP Code) 



Monterey, California 93943-5000 



NAME OF FUNDING SPONSORING 
ORGANIZATION 



8b OFFICE SYMBOL 
(If applicable) 



9. PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER 



ADDRESS (City, State, and ZIP Code) 



10 SOURCE OF FUNDING NUMBERS 



PROGRAM 


PROJECT 


TASK 


WORK UNIT 


ELEMENT NO. 


NO. 


NO 


ACCESSION NO. 



1 TITLE (Include Security Classification) 

A COMPUTER-AIDED INSTRUCTION PROGRAM FOR TEACHING THE TOPS20-MM FACILITY ON THE DDN 



2 PERSONAL AUTHOR(S) 

Kim, Tae Woo 



REPORT 


13b TIME COVERED 


14 DATE OF REPORT {Year, Month, Day) 


15 PAGE COUNT 


; Thesis 


FROM TO 


1988 June 


54 



6. SUPPLEMENTARY NOTATION 

The views expressed in this thesis are those of the author and do not reflect the official 



7 COSATI CODES 


FIELD 


GROUP 


SUB-GROUP 















18 SUBJECT TERMS (Continue on reverse if necessary and identify by block number) 

Computer Assisted Instruction; Artificial Intelligence 



9 ABSTRACT ( Continue on reverse if necessary and identify by block number) 

We constructed an Intelligent Computer Assisted Instruction (ICAI) program to tutor the 
usage of the TOPS20-MM, an electronic mail facility available on the Defense Data Network 
(DDN) . Learning by experience is one of the best ways to learn something. The main 
strategy of tutoring in this thesis was to provide an environment simulating the actual 
facility that guides the student while he/she tries to perform given tasks. Means-ends 
analysis, a classic technique for solving search problems in Artificial Intelligence, 
has been used to figure out the right command to perform a given task. Basic commands, 
e.g. a command for viewing a message number 7, will be taught first, then the tasks like 
"Send a message to the people mentioned in message number 3" will be issued. 



21 ABSTRACT SECURITY CLASSIFICATION 


Unclassified 




22b TELEPHONE (Include Area Code) 


l2 c OFFICE SYMBOL 


(408) 646-2462 


Code 52Rp 



>o distribution /availability of abstract 

C3 UNCLASSIFIED/UNLIMITED □ SAME AS RPT □ OTIC USERS 



2a NAME OF RESPONSIBLE INDIVIDUAL 

Prof. Neil C. Rowe 



)D FORM 1473, 84 mar 



83 APR ed.tion may be used until exhausted 



cpniRiTY ri ASSiPirATinN op this page 



Approved for public release; distribution is unlimited. 



A COMPUTER-AIDED INSTRUCTION 
PROGRAM FOR TEACHING 
THE TOPS20-MM FACILITY ON THE DDN 

by 

Tae Woo Kim 

/ 

Capt. Republic of Korea Army 
B.S., Korea Military Academy, 1984 



Submitted in partial fulfillment of the 
requirements for the degree of 

MASTER OF SCIENCE IN COMPUTER SCIENCE 

from the 

NAVAL POSTGRADUATE SCHOOL 
June 1988 



ABSTRACT 



We constructed an Intelligent Computer Assisted Instruction (ICAI) program to 
tutor the usage of the TOPS20-MM, an electronic mail facility available on the Defense 
Data Network (DDN). Learning by experience is one of the best ways to learn 
something. The main strategy of tutoring in this thesis was to provide an environment 
simulating the actual facility that guides the student while he/she tries to perform given 
tasks. Means-ends analysis, a classic technique for solving search problems in Artificial 
Intelligence, has been used to figure out the right command to perform a given task. 
Basic commands, e.g. a command for viewing a message number 7, will be taught first, 
then the tasks like "Send a message to the people mentioned in message number 3" will 
be issued. 
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I. INTRODUCTION 



This thesis built a tutor to teach an electronic mail facility called "TOPS20-MM". 
The computer serves as a nice tool to do tills. Learning by experience is one of the best 
ways to learn something. This thesis provides a simulation of the MM facility 
environment and the student learns by trying to perform given tasks with it. TOPS20- 
MM, which we have chosen to teach, is the most-used service on the Defense Data 
Network(DDN). The DDN and the TOPS20-MM are discussed briefly in chapter 3. 

Computer- Assisted Instruct ion(CAI) programs try to encourage and control learning 
while the student is involved in some activity. Artificial intelligence in computer-based 
instructional applications provides a new kind of learning environment. Some of the 
important applications of artificial-intelligence-based teaching are discussed in chapter 2. 

The strategy we have used for teaching is: (1) issue a task or an exercise to the 
student; (2) monitor the student’s actions; (3) compare the command issued by the 
student with the correct command; (4) either perform the actual MM actions or correct 
the error. For the tutor to best teach the student the commands and procedures to use the 
MM facility, it should be able to figure them out itself. To do so, we have exploited 
means-ends analysis, a classic technique for solving search problems by abstraction. 
Means-ends analysis tries to find appropriate operators to reach a certain goal state from 
a starting state by using the preconditions and postconditions of each operator. In our 
program, we have determined preconditions and postconditions of each command. 
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For the tasks to be issued, we have used a subskill lattice. With this idea, the basic 
commands available in MM will be taught first, then more complicated tasks which are 
compositions of basic ones. The tutoring program is written in PROLOG and it runs on 
UNIX. 
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n. SURVEY OF PREVIOUS WORK 



A. INTELLIGENT TUTORING SYSTEMS 
1. Overview 

The goal of computer aided instruction (CAI) research is to build instructional 
programs that incorporate well-prepared course material in lessons that are optimized for 
each student [Ref. 1]. In the 1970’s, course materials were represented independently of 
teaching procedures by intelligent computer-aided instruction (ICAI) programs, so that 
problems and tutoring advice could be generated differently for each student. In recent 
years, researchers have concentrated on supportive learning environments to provide 
learning-by-doing, which means a student aquires knowledge by solving real-world 
problems [Ref. 2]. To tutor well, a system has to specify exercises and their answers 
ahead of time, and must have an ability to diagnose or model the student’s behavior. It 
must also have tutorial strategies that specify when to interrupt a student and what to say 
then. 

When CAI researchers realized the complexity of such a computer-based tutor, 
they began to apply artificial intelligence (AI) techniques. AI research such as natural- 
language understanding, knowledge representation, and inferencing, have been applied. 
The main components of an such "intelligent computer-aided instruction" (ICAI) systems 
are problem-solving expertise, what the system tries to teach the student; the student 
model, what the student does and does not know; and tutoring strategies, how the system 
presents material to the student. 
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2. Intelligent CAI Systems 



In this section four intelligent computer-aided instruction (ICAI) systems 
relevant to this thesis are discussed briefly. 

a. SOPHIE 

SOPHIE (a SOPHisticated Instructional Environment) is an ICAI system 
developed by John Seely Brown, Richard Burton, and their colleagues at Bolt Beranek 
and Newman, Inc [Ref.3:p.247]. It tries to teach natural proofs as they are actually done 
by mathematicians It is designed to provide the student with a learning environment in 
which he/she acquires problem-solving skills by making hypotheses and trying out ideas. 

SOPHIE has modules for problem-solving knowledge, heuristic strategies 
to answer the student’s questions, rules to criticize the student’s hypotheses, and the rales 
to suggest alternative theories for the current hypothesis. In a simulated electronics 
laboratory, it teaches problem-solving skills. It issues problems to the student to find the 
faults in a malfunctioning electric circuit. After the student measures the equipment and 
proposes a solution, he/she receives feedback as to the logical validity of their proposed 
solutions. When the student makes an error in his/her logic, SOPHIE can critique by 
generating relevant counterexamples. The SOPHIE system combines domain-dependent 
knowledge and domain-independent inferencing mechanisms to answer questions. 

b. GUIDON 

GUIDON was developed by William J. Clancey and his colleagues at 
Stanford University [Ref.3:p.267]. It is design to answer "how the problem-solving rales 
in the MYCIN consultation system can be used by other tutoring programs in interaction 
with a student?" and "what can be done to MYCIN in oreder to make it more effective 
tutorial program?" MYCIN is a rale -based expert system that diagnoses the cause of the 
infection using knowledge relating infecting organisms with patient history and test 
results [Ref.4:p.283. 
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GUIDON uses the rules of the MYCIN consultation system as subject 
material and organizes them into procedures. MYCIN’s rules are not been modified, but 
are used to form quizzes, guide the dialogue, summarize evidence, and model the 
student’s understanding for the tutoring application. GUIDON engages the student in a 
dialogue about a patient suspected of having an infection. The student learns the relevant 
clinical and laboratory data and how to use it to diagnose the patient. 

GUIDON differs from other ICAI programs in its mixed-initiative 
dialogue, which allows both tutor and student decide what to do next. It uses structured 
teaching interactions that record the previous dialogue, and it does more than just 
respond to the student’s last action. It demonstrates that by separating teaching 
knowledge from subject knowledge, we can treat the teaching knowledge as a rule-based 
system itself. 

c. EXCHECK 

EXCHECK is an instructional system developed by Patrick Suppes and 
his colleagues at the Institute for Mathematical Studies in the Social Sciences (IMSSS) at 
Stanford University [Ref.3:p.283]. It tries to teach natural proofs as they are actually 
done by mathematicians, by checking student proofs. 

EXCHECK has natural-inference subroutines which allow it to understand 
sketches of proofs, summarize proofs, and explain set theory. These subroutines allow 
the system to interact in a natural style which is similar to standard mathematical 
practice. With this system, the student is given lesson materials first, then exercises 
consisting of theorems are given for him/her to prove. Since its inference procedures 
allow the system to recognize the student’s reasoning and track his/her solutions, 
EXCHECK has similarities to SOPHIE. 
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d. The C Workshop 



The C workshop is a tutorial program developed by Charles Pine at Word 
Craft [Ref. 5]. It teaches the C programming language by providing a programming 
environment and online help facility. 

It has a tutoring module called Soft Tutor that examines the workings of 
the student’s program. The system presents example programs, and the student modifies 
them to obtain his/her own programs. The Soft Tutor gives immediate feedback by error 
messages. It uses an actual C compiler to teach the C language since its problem domain 
is a computer system. It provides an working environment, but it lacks much interactive 
ability. 
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ID. Description of the Application 



A. About DDN 

The Defense Data Network (DDN) is a large common-user data communications 
network operated for the Department of Defense (DoD) by the Defense Data Network 
Program Management Office (DDN PMO) of the Defense Communications Agency 
(DCA). Mail services let users send messages electronically to one another. They have 
these features: 

1. Reading messages: select and view specific messages. 

2. Printing, deleting, or moving messages: print messages on the printer, move them 
into files, or delete them. 

3. Sending messages: send messages to other users; you must know the network 
mailbox or "address" of the addressee. 

In this thesis, I’ll concentrate on the "TOPS20 MM" mail service. 

B. About TOPS20-MM 

MM is a sophisticated program used to create and manipulate messages [Ref. 6]. 
MM has three levels: the TOPS20 executive level which displays prompt on the 
screen; the main executive level of MM that displays "MM>" prompt; and the sub-modes 
that can be entered from MM level. 

The top level is the initial and main command level. Here most of MM’s power is 
available through a variety of commands. Available commands and their functions are as 
follows: 

ALIAS: allows you to use MM as the given user. 

ANSWER: allows you to respond a selected message individually. 
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APPEND: concatenates selected messages into one. 

BBOARD: allows you to select a file name from a list of names for MM to work. 
BLANK: clears the screen. 

BUG: allows you to report or send suggestions to the MM maintainer. 

CHECK: shows header-lines of newly arrived messages if any. 

CONTINUE: resumes the last SEND, if it was aborted. 

COPY: copies selected messages to the given file name. 

COUNT: gives the number of the required messages. 

CREATE-INIT: makes a new version of MM.INIT in your login directory. 
DAYTIME: gives you the current date and time. 

DELETE: sets the delete bit to the selected messages. 

DISABLE: makes the current message into read-only mode. 

ECHO: shows a text string you type on the terminal. 

EDIT: allows you to edit selected messages with the editor. 

ENABLE: makes the current message into read-write mode. 

EXAMINE: sets read-only mode to allow you to select a message for MM to work. 
EXIT: halts MM after removing all the deleted messages in the mail file. 
EXPUNGE: just removes all the deleted messages in the mail file. 

FILE-LIST: shows an index of header lines. 

FLAG: just sets the flag bit of selected messages. 

FORWARD: allows you to send selected messages with your comments. 

FROM: allows you to specify the address field with other commands. 

GET: allows you to specify the mail file for MM to work with. 

HEADERS: shows the header line of messages you selected. 

HELP: shows a definition of the following command. 

JUMP: changes the current message to be the following number. 
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LIST: shows an index of header lines and then prints the selected messages. 

LITERAL-TYPE: shows the selected messages without regard to the variables 
only-type-headers and dont-type-headers. 

LOGOUT: expunges the mail file, and logs you out of the system. 

MARK: sets the seen bit of selected messages. 

MOVE: copies selected messages to the end of given file and sets a delete bit to the 
selected messages. 

NET-MAIL: tries to send queued mail, if any. 

NEXT: types the next message if undeleted, and makes it the current message. 

PREVIOUS: types the previous message if undeleted, and makes it the current 
message. 

PROFILE: allows you to establish values for a basic set of variables to adjust MM’s 
environment to your preference. 

PUSH: gives you a fresh EXEC after placing the current job in an inferior fork. 
QUIT: halts MM without removing deleted messages in the current mail file. 

READ: allows you to enter READ mode. 

REMAIL: allows you to resend selected messages without comments. 

REPLY: allows you to respond each selected message individually. 

REPLY -TO: adds the address to the "Reply-To:" field for all outgoing messages. 

RESTORE-DRAFT: enters SEND-mode with resetting the outgoing message fields 
to the values of the message draft saved in the given file. 

SEND: allows you to enter SEND-mode. 

SET: allows you to change the value of the selected variable for this session. 

SHOW: shows the current MM variable settings. 

SORT: reorders the selected messages chronologically by date of composition. 
STATUS: tells you relevant information and statistics of the current mail file. 
SYSTEM-MSGS: is the same as GET SYSTEM:MAIL.TXT. 1 
TAKE: allows you to change the input source from the terminal to the file. 



9 



TYPE: shows the selected messages, considering the variables only-type-headers, 
and dont-type-headers and sets the seen bit. 

UNANSWER: removes the ANSWER bit from the selected messages. 

UNDELETE: removes the DELETE bit from the selected messages. 

UNFLAG: removes the FLAG bit from the selected messages. 

UNKEYWORDS: removes the given keyflag and keywords from the "Keywords:" 
field of selected messages. 

UNMARK: removes the SEEN bit from selected messages. 

VERSION: gives the version number and configuration of MM. 
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IV. Implementation of the Tutor 



A. Data Structures and the System Environment 

This program has been developed on VAX 11/785 running the UNIX Operating 
System. It is written in C-Prolog, a Prolog interpreter written in C for 32 bit machines. 

The program uses code for means-ends analysis written by Prof. Rowe [Ref. 1]. 
Means-ends analysis tries to find a path from a starting state to a goal state, representing 
it by a sequence of operators. In our program, operators are the available commands in 
each mode. To reach the goal states, recommended operators are specified and 
preconditions are specified for each operator. Also, deletepostconditions and 
addpostconditions are defined for each operators. Lists hold the sequence of operators to 
be issued to perform a given task. Lists also represent preconditions and postconditions 
for each operator, the starting state, and the goal state. 

B. Structure of tire program 

The program is divided into three modules. The problem domain module defines 
the tasks issued to the student to teach the TOPS20-MM facility. The tutor module 
implements various tutoring strategies. The TOPS20-MM module simulates the actual 
TOPS20-MM environment. 

1. Problem Domain Module 

Student tasks are divided into two groups: basic and advanced. Basic tasks 
teach the concept of domain levels and single basic commands in each level. The 
commands we chose are a subset of the commands described in previous chapter: 
to teach answer, copy, delete, exit, expunge, flag, forward, 
headers all, headers answer, headers current, headers delete, 
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headers flag, headers unseen, help, jump, list, logout, move, 
next, previous, quit, read, send, type, undelete, and unflag. 



2. Tutor Module 

The tutor issues tasks to the student and monitors the actions performed. Most 
of its code was written by Prof. Rowe. It contains an inference engine for means-ends 
analysis, tutoring strategies, an interface, a help facility, and utilities. The tutor issues a 
task, compares the student’s answer with the correct command figured out by tire 
inference module, and gives the student appropriate assistance and corrects any errors. 
The tutor interacts with the student via the interface module and provides help with the 
help facility module. It executes commands the student types in by invoking the 
TOPS20-MM module, if it is a correct command. 

For example, in order to send a message, a user must type the command "send" 
to enter the SEND mode from MM or READ mode; "send" is thus an operator. Means- 
ends analysis requires clear definitions of the preconditions and postconditions for each 
operator. In this case, the precondition can be expressed by: 

precondition(command(mm,send),[level(mm)]) 
where the second argument is the precondition that the current level must be MM. After 
an operator has been applied, it must delete previous conditions which are no longer true 
and add new conditions that became true. These can be represented by: 
deletepostcondition(comniand(mm,send),[level(mm)]) 

and 

addpostcondition(command(mm, send), [level(send),issued_command(mm, send)]), 
respectively. The recommended operator to reach a goal state is represented by: 
predicate "recommended" as in 

recommended([level(send)],command(mm,send)) 
which can be read as "In order to reach the state where the current level is SEND, try to 
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issue a send command from the MM level." Means-ends analysis figures out the required 
sequence of operators to accomplish a task by using these conditions. 

After issuing the task and receiving a command from the student, the tutor uses 
some of the teaching strategy rules in metutor9 module written by Prof. Rowe to decide 
what actions to take according to the student’s input, plus some code of my own. If the 
received command was invalid, the tutor checks for minor errors such as mistyping or 
transposition of characters in a command. It infers the correct command if it recognizes 
one difference in character string of the received command from a valid one, if by 
changing the positions of two adjacent characters in the string; then it will ask the student 
if it can correct the command. 

A subroutine called "niceread" has been written by Prof. Rowe to make input 
and output process a little easier. The tutor will recognize input when the user hits the 
return key without an extra period. When the tutor must talk to the student while he/she 
is inside the environment of the TOPS20-MM, the words are preceded by "TUTOR:” 

A help facility can show the available commands at each level and explain the 
functions of each command, when requested by the student typing "?" or "help". The 
student can also review the task by typing "task". 

3. TQPS20-MM Module 

When the student types a correct command, the tutor passes it and the current 
level to the TOPS20-MM module for execution. For example, after a "send" command, 
it executes the action mle whose left hand side is action(mm,send) and performs the 
function of the command. It then enters the "To:" level and waits for the address of the 
receiver. 

Our program differs from the actual TOPS20-MM in the usage of the escape 
character. MM allows the student to abbreviate a command by typing two or three 
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characters followed by an escape character, but it was hard to implement and was 
discarded from this module. Instead, the exact commands were required to execute the 
system. 
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V. CONCLUSIONS 



We built a computer tutor to teach part of MM. We showed it was possible to 
provided an efficient working environment for a student to learn the usage of MM by 
issuing the commands and seeing results. Since the time was limited, only a part of MM 
was addressed. 

"Is it cost effective?" is an important question when developing an ICAI system. 
TOPS20-MM is the most-used service provided in the Defense Data Network. Since 
teaching TOPS20-MM isn’t complex, a computer tutor can save much time and effort of 
a teacher as well as a student. 

The program didn’t cover all of MM, but it demonstrated that artificial intelligence 
can be added to computer aided-instruction to provide a better system. It could correct 
typing errors and misconceptions in level, precondition violations, and other more subtle 
errors. The program could be improved by providing a complete simulation of MM, and 
more tutoring strategies, and computer graphics. 
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APPENDIX A - DEMONSTRATION 



Tutor: Hi, what is your name? Kim 
Tutor: Nice to meet you, Kim. 

Welcome to TOPS20 M4 Self-learning course. 
Type ”7" for the available commands 
or ”? task” for the current task. 



Tutor: We are now at the top level mode. 

Your fisrt exercise is to invoke the MVl. 



%im 

A. IS I . EDU. #In t e rne t NM-20 6.1(1145) 

Last read: 5-Jun-88 11:15:20 12 messages, 40 pages 

3 me ssages unseen; 2 deleted 

U 10 5-Jul Tutor Exercise #10 

U 11 7-Jul Tutor Deletethisfile 

U 12 10- Ju 1 Gen. X Task #12 



Tutor: Good. Now, we are at the MVl mode . 

Lets browse the headers of the current message in the mail box. 



Mvt> ? 



Following are the possible commands at mm level: 





a n swe r 


header s 


all 


list 


send 




copy 


headers 


current 


1 ogou t 


type 




dele t e 


headers 


delete 


move 


undelete 




exit 


heade r s 


f 1 ag 


next 


unflag 




expunge 


headers 


unseen 


prev iou s 






f 1 ag 


help 




qu i t 






f orwa r d 


jump 




read 




Mvf> 


headres current 








Ooop 


s ! You mean " 


headers 


current” 


? yes 




U 


12 10- 


Jul Gen. X 


Task #12 




Tutor: O.K. 












Le t s browse 


the content of 


the current message 





Mvt> t ype 



Me s s age 12 

Ma i 1 __F r om : Gen. X 

Da t e : 

Sub j ec t : Task #12 
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To: Kim 



This is the content of message number 12. 

Since you have seen this message, the unseen flag will be removed. 



Tutor: Now, go back to the top level again. 
Mvi> qu i t 



Tutor: All right. We came back to the TOP level. 

Now, lets browse all the headers of messages in the mail box. 

%he a de r s all 

Ooops! You can issue a "headers all" contnand only in the "M4" level. 
Try again, 
n 

A. IS I . EDU. #In t e rne t Mvl-20 6.1( 1 145) 



Last read: 
2 messages 


5 - J un - 8 8 
unseen; 2 


11:15:20 

deleted 


12 messages. 


40 pages 


U 


10 


5 - Ju 1 


Tutor 


Exercise #10 


u 


11 


7-Jul 


Tutor 


Delete 


this file 



Nfvf> headers all 



FLAG 


NUvBER 


DATE 


AUTHOR 




1 


25- Jun 


Tutor 




2 


27 - Jun 


Gen. X 


D 


3 


28 - J un 


Tutor 


A 


4 


29 - Jun 


Gen . Z 


F 


5 


30- Jun 


Tutor 




6 


1- Jul 


Tutor 


A 


7 


30- Jun 


Gen. Z 


D 


8 


3 - J u 1 


Somebody 


F 


9 


5- Jul 


Gen . S 


U 


10 


5- Jul 


Tutor 


U 


11 


7- Jul 


Tutor 




12 


10- Jul 


Gen. X 


Tutor 


: Now, 


list all 


the headers 



Mvi> jeaders flag 

Ooops! You mean "headers flag"? 



FLAG 


NUvBER 


DATE 


AUTHOR 


F 


5 


30- Jun 


Tutor 


F 


9 


5- Jul 


Gen . S 



SUBJECT 
Exercise #1 
Task #2 
Garbage 
Reply Needed 
Spec i a 1 No t e 
Exercise #6 
Reply Needed 
Another Garbage 
Another Special Note 
Exercise #10 
Delete this file 
Task #12 



flagged messages in the mail box. 



SUBJECT 
Special No t e 
Another Special Note 
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Tutor: Good. Now, set the flag on the message number 12. 
Mvi> flag 

Me s s a g e n umb er to be flagged? 12 



Tutor: O.K. Now, list all the headers of flagged messages again. 



MVt> headers flag 



FLAG 


NUMBER 


DATE 


AUTHOR 


F 


5 


30- Jun 


Tutor 


F 


9 


5 - Ju 1 


Gen. S 


F 


12 


10- Jul 


Gen. X 



SUBJECT 
Spec i a 1 Note 
Another Special Note 
Task #12 



Tutor: List all the headers of the unseen messages in the mail box. 
Mvt> headers unseen 

FLAG NUMBER DATE AUTHOR SUBJECT 

U 10 5-Jul Tutor Exercise #10 

U 11 7-Jul Tutor Deletethisfile 



Tutor: All right. 

Now, lets browse the message number 10. 
Mvt> type 10 



Me s sage 10 
Mail_From: Tutor 
Date: 

Subject: Exercise #10 
To : Kim 

This is the content of message number 10. 



Tutor: Now, jump to the message number 7 in the mail box. 



IvM> j ump 7 



Tutor: All right. 

Now, lets browse the current message in the mail box again. 
Mvf> t ype 



Me s s age 7 

Ma i 1 _F r om : Gen. Z 

Date: 

Subject: Reply Needed 
To : Kim 
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This is the content of message number 7. 



Tutor: Good . 

Now, browse the next message in the mail box 
Mvf> next 



Me s s a g e 8 

Mail_From: Somebody 
Date: 

Subject: Another Garbage 
To: Kim 

This is the content of message number 8. 



Tutor: Now, browse the previous message in the mail box. 
MVt> p r e v i u o s 

Ooops! You mean "previous"? y 



Me s s age 7 
Mail_From: Gen. Z 
Da t e : 

Subject: Reply Needed 
To : Kim 

This is the content of message n umb e r 7 . 



Tutor: Good. Now, send a message to }?a)SRI-KL. 



Tutor: Now, browse the previous message in the mail box. 
Mvt> previous 



Message 11 
Mail_From: Tutor 
Date: 

Subject: Delete this file 
To: Kim 

This is the content of message n umb cr 11. 



Tutor: Good. Now, send a message to }{a)SRI-KL. 

Mvt> send 
To: >*a)SRI-KL 
Cc : y ee , 1 i ang 
Subj : Good news 
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Message (end with ESCAPE or CTRL-D or CTRL-Z): This is my first message. 
S>send 



Tutor: Exe 1 1 en t . 

Now, send a message to the address in message 6 



Mvt> type 6 



Me s s age 6 
Mail_From: Tutor 
Date: 

Subject: Exercise #6 
To : Kim 

Send a message to GK^NPS . ARPA . 

Mvt> send 
To: GKoNPX.ARPA 
Cc : me t i n 
Sub j : Ta sk 

Message (end with ESCAPE or CTRL-D or CTRL-Z) : I got it, sir. 
S>s end 
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APPENDIX B - SOURCE PROGRAMS 



/**************************************/ 
/* */ 

/* Module Name: TOPS20-MV1 */ 

/* */ 

/* Author: Capt .Taewoo Kim, ROKA */ 

^ ^ V 



/ * TOP c orrma n d s . * / 

ac t i on ( t op , he 1 p ) :- re spond_he 1 p( t op ) . 

ac t i on ( top , ? ) r e spond_he 1 p ( t op ) . 

ac t i on ( t op , 1 ogou t ) halt. 

/* topact ion( ’rrni’ ) */ 
ac t i on ( t op ,nm) change^leve 1 (nm) , 
da t e (Da t e ) , t i me (Time ) , 

count up_mes sages (me ssage(X,A,B,C,D,E) ,M) , 

countup_unseen(mes sage(u,A.B,C,D,E) ,U) , 

countup_ deleted (me ssage(d,A,B,C,D,E) ,Del ) , 

nl ,wri te( ’A. ISI. EDU. #In t e rne t M4-20 6.1( 1145)’), nl, 

write( ’ Last read: ’ ) ,wr i t e (Da t e ) ,wr i t e (Time ) ,wr i t e (M) , 

wr i t e ( ’ messages , ’ ) ,wri te( ’ 40 pages ’), nl, 

wr i tc(U) ,wr i te( ’ messages unseen; * ) ,wr i t e (De 1 ) , 

wr i t e ( ’ de 1 e t ed ’ ) , n 1 , n 1 , 

headers_unscen. 

heade r s_un seen 

me s s age ( u ,A,B,C,D,E) , wr i t embody (A, B ,C,D,E) , fail, 
headers _unseen . 

da t e( ’ 5- Jun- 88 ’ ) . 
t ime (’ 11:15:20 ’). 

ac t i on (X, t r ace ) trace. 

ac t i on ( t op ,X) :- check_e r r o r ( t op ,X) . 



/* Mvl level conmands. */ 

/* rimact ion( ’answer’ ) */ 

act ion(rmi,answer ) respond_answer . 

/* mmac t i on ( ’ copy ’ ) */ 

ac t i on (mm, copy ) r e spond_c opy . 

/* mmact ion( ’delete’ ) */ 
ac t i on (nm, de 1 e t e ) :- nl, 

wr i t e ( 'Message number to be deleted? ’ ) , n ice r ead(Num) , n 1 , 
convert (Num, In t ) , 

me ssage(X,A,Int ,C,D,E) , retract (me ssage(X,A,Int ,C,D,E) ) , 
a s se r t a (me s s age (d , ’ D , I n t ,C ,D , E ) ) , n 1 , sor t _me s s a ge s . 

/* rimact ion( ‘exit’) */ 

act ion(nm,exi t ) e r a s e_de 1 e t e d . 

/* nmact ion( ’expunge ’ ) */ 
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ac t i on(mm, expunge ) erase_deleted. 

e r a s e_de 1 e t ed n 1 , r e t r ac t (me s s age ( d , A , B ,C ,D, E) ) , f a i 1 . 

eras e_de 1 e t ed . 

/* mmac t i on ( * f 1 ag 1 ) */ 
ac t i on (mm , f 1 ag ) nl , 

write( 'Message number to be flagged? ’ ) ,niccread(Nuni) ,nl , 
c o n v e r t ( Num , I n t ) , 

me ssage(X,A,Int ,C,D,E) .retract (mes sage(X,A,Int ,C,D,E) ) , 
a s s e r t a (me s s age ( f , * F’,Int,C,D,E)),nl,sor t _me s s age s . 

/* nrnact ion( ’forward’ ) */ 
act ion(nm, forward) nl, 

write( ’Message number to be forwarded? ’), 
n i ce re ad (Num) , n 1 .convert (Num, In t ) , 
message(X,A, Int ,C ,D,E) , 

a s s e r t a ( fme ssage(X,’ F’,Int,C,D,E)),nl. 

/* mniact ion( ’headers all’) */ 
act ion(nm, ’headers all’) 

write_title, headers_all. 
header s_a 11 : - 

me ssage(X,A,B,C,D,E) , 

((X = 0, B < 10, wr i t e ( * ’), write(B), tab(4), write(C), tab(4), 

write(D), tab(4), wr i t e (E) , t ab ( 4 ) , n 1 ) ; 

(X = 0, B > 9, wr i t e_body (A,B ,C,D,E) ; 

(X=a :X=d ;X=f ;X=u ) , wr i t e_body (A,B ,C,D,E) ) ) , fail, 
header s_a 1 1 . 

/* nrnact ion( ’headers answer*) */ 
act ion(nin, ’headers answer’) 

write_title, h e ade r s_an swe r . 
he ade r s_an swe r : - 

me s s age ( a , A,B,C,D,E) , wr i t e_body (A,B ,C,D,E) , fail, 
headers _an swe r . 

/* mmac t i on ( ’ heade r s current’) */ 

act ion(nm, ’header s current’) cu r r en t _ms g (GvN) , 

me s s age (X, A, QvM,C ,D,E) , writ e_body (A,CMN,C,D,E) . 

/* nmact ion( ’headers delete*) */ 
act ion(mm, ’headers delete’) 

write — title, he ade r s_de 1 e t e . 
header s_de 1 e t e : - 

nie s s age ( d ,A,B,C,D,E) , wr i t e_body (A,B ,C,D,E) , fail, 
header s_de 1 e t e . 

/* mmac t i on ( ’ he ade r s flag’) */ 
act ion(nni, ’headers flag’) 

write_title, he ade r s_f 1 ag . 
header s_f lag 

mes sage( f ,A,B,C,D,E) , wr i t embody (A, B , C,D, E) , fail, 
heade r s_f 1 ag . 

/* mmac t i on ( ’ he ade r s unseen’) */ 
act ion(nni, ’headers unseen’) 

write_title, header s_unseen. 
header s_unseen 

me s s age ( u , A,B ,C,D, E) , wr i t e_body ( A,B ,C,D , E) , fail. 
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heade r s unseen. 



wr ite title n 1 , 

wr i t e ( ’ FLAG NUMBER DATE AUTHOR SUBJECT* ) , nl. 

wr i t e_body ( A.B . C,D,E) 

write(A) , t ab(4 ) , wri te(B) , t ab( 4 ) , 

write(C) , t ab ( 4 ) , wri te(D) , tab(4) ,wr i te(E) , n 1 . 

/* mma c t i on ( * he 1 p * ) */ 

ac t i on (mm, he 1 p ) r e spond_he 1 p (mm) . 

ac t i on (mm, ? ) r e spond_he 1 p (mm) . 

ac t i on ( Le ve 1 .He 1 p ) 1 ong_he 1 p_cornnand (He 1 p .Command ) , 

g i ve_de f ( Leve 1 ,Conrnand) . 

/* mmac t i on ( * j ump * ) */ 

ac t i on (mm, JC ) 1 ong_ j ump_corrmand ( JC ,Nvf) , 

hM > 1 , NM < 13, ! , 

c u r r en t_ms g (CM) , ret ract (current _ms g (CM) ) , 
asserta(cur r en t _ms g (NVl) ) . 

ac t i on (mm, JC) 1 ong_ j ump_conrmand ( JC ,Nvl) , 

wr i t e ( ’Me s s age ’), write(bM). wr i t e ( ’ does not exist.’). 

/* mmac t i on ( ’ 1 i s t ’ ) */ 

ac t i on (mm, 1 i s t ) re spond_l i s t . 

/* nmact ion( ’ logout ’ ) */ 

ac t i on (mm* 1 ogou t ) mmac t i on ( expunge ) , halt. 

/* mmac t i on ( ’move ’ ) */ 

ac t i on (mm, move ) re spondjmove . 

/* mmac t i on ( ’ nex t ’ ) */ 

ac t i on (mm, nex t ) cur ren t_msg(K) , K< 12, re t rac t (cur rent_msg(K) ) , 

Kpl is K+l, as ser t a( cur ren t_msg(Kpl ) ) , print2(Kpl). 
ac t i on (mm, nex t ) wr i t e ( ’Me s s age currently ends at number 12’). 

/* mmac t i on ( ’ p r e v i ou s * ) */ 

act ion(nm,previous) current_msg(K) , K > 1, ret ract (current_msg(K) ) , 
Kml is K- 1 . a s s e r t a ( cur r en t _msg (Kml ) ) , p r in t 2(Kml ) . 
ac t i on (mm, nex t ) wr i t e ( ’Me s s age starts from number 1*). 

/ * mma ction(’quit’) */ 

ac t ion(mm, qu i t ) ch ange_l e ve 1 ( t op ) . 

action(mm,q) change_ 1 e ve 1 ( t op ) . 

/* mnac t i on ( ’ t ype ’ ) */ 

ac t i on (mm, t ype ) cu r r en t _ms g (K) , print2(K). 

act ion (mm ,C) cur ren t_msg (K3 ) , re t r ac t ( cur ren t_msg(K3 ) ) , 

1 ong_type_coimiand(C,K) , a s s e r t a ( cu r r en t _msg( K) ) , print2(K). 

/* mmac t i on (* unde 1 e t e ’ ) */ 

ac t i on (mm, unde 1 e t e ) nl, 

write( ’Message number to be undeleted? ’), 
nice read(Num) , n 1 .convert (Num, Int ) , 

message(d,A, Int ,B,D,E) .retract (me ssage(d,A,Int ,B ,D,E) ) , 
a s s e r t a (me ssage(0,0,lnt ,B,D,E)) .nl , 
sort _me s s a g e s . 



23 



/* nrnac t ion( ' un f 1 ag * ) */ 
ac t i on (nm, un f 1 ag ) nl , 

write( ’Message number to be unflagged? ’), 
niceread( Num) , n 1 , convert ( Num , I n t ) , 

me ssage( f ,A, Int ,B ,D,E) , retract (me ssage(f,A,Int ,B ,D,E ) ) , 
a s s e r t a (me ssage(0,0,lnt , B ,D,E ) ) , n 1 , 
sort _me s s a g e s . 

/ * Check eror * / 

act ion(mn,X) check_e r ror (nm,X) . 



/* Commands at SEN) level */ 

/* s endac t i on ( * d i sp I ay * ) */ 

ac t i on ( send , d i sp 1 ay ) s end_d i sp 1 ay . 

/* sendaction( ’erase’ ) */ 

ac t i on ( send , e r a se ) send_erase. 

/ * sendac t i on( * he lp ’ ) */ 

ac t i on ( send , he 1 p ) r e spond_he lp ( send ) . 

ac t i on ( send , ? ) r e spond_he 1 p ( s end ) . 

/* sendac t ion( ’ send’ ) */ 

ac t ion( send , send) sen d_ send. 

/* s endac t i on (’ qu i t ’ ) * / 
action(send,quit) :-change_leveI (mm) . 
ac t i on( send , q) change_l eve 1 (nm) . 

/* sendac t i on( * t ype * ) */ 

ac t i on ( send , t ype ) send_type. 

/* Illegal conmands */ 

ac t i on ( send ,X) error(X). 

/* Print the requested message. * / 

print2(Num) me s sage (X,A,Num,C,D,E) , n 1 , n 1 , 

wri te( ’Message ’ ) ,wri te(Num) ,nl , 

wr i t e ( ’Ma i l_Fr om: ’ ) , wr i t e (D) , n 1 , 

wr i t e ( ’Da t e : ’ ) , n 1 , 

wr i t e ( ’ Sub j ec t : ’ ) , wr i t e ( E) , n 1 , 

write(’To: ’ ) ,user (Name ) , nwr i t e (Name ) ,nl ,nl , 

me ssage_content (Num, Con tent) ,write( Content) ,nl , 

check_flag(Flag,A, Num , C , D , E ) , 

sort _me s s a g e s , ! . 

check_f 1 ag(u , A,Num,C ,D , E) 

ret ract(message(u,A, Num , C , D , E ) ) , 
asserta(message(0,’ , Num , C , D , E ) ) . 

check_f 1 ag(X,A,Num,C,D,E) . 

/ + count the n umb er of each messages * / 

count up_mes sages (me ssage(X,A,B,C,D,E) ,M) : - asserta(counter(0)) , 

ca 1 1 (me s s age (X,A,B ,C,D, E) ) , counter(K) , ret ract (counter(K) ) , 
K2 is K+l , asser ta(counter(K2) ) , fail. 
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coun t up_me s s age s (me s s age (X,A, B ,C,D, E) ,M) counter(M) , ret ract (counter(M) ) 

c oun t up_un s een (mess age (u ,A,B,C,D,E),U) asser ta(counter(0) ) , 

call (me s sage(u ,A,B ,C,D, E) ) , counter(K) , retract (counter(K) ) , 

K2 is K+ 1, asser ta(counter(K2) ) , fail, 
c oun t up_un se en (me s s age ( u ,A,B,C,D,E) ,U) counter(U) , re t rac t ( coun t e r(U) ) t ! 

coun t up_de let ed (me ssage(d,A,B*C,D,E),Del) asserta(counter(0) ) , 

c a 1 1 (me s s age ( d ,A,B ,C,D, E) ) * counter(K) , re t ract (counter (K) ) , 

K2 is K+l, asser ta(counter(K2) ) , fail, 
coun t up_de 1 e t ed (me s s age ( d ,A,B , C ,D , E) ,De 1 ) coun t e r (De 1 ) , 

retract(counter(Del )) , ! . 



/* CODES FOR SEM) OP. */ 

act ion(rmi, send) change_level(to). 
action(to,X) a s se r t a ( rece i ve r (X) ) , !. 

action(cc.X) a s s e r t a ( cc r ece i ve r (X) ) , !. 

ac t i on ( sub j ec t ,X) a s s e r t a (me s s age_s ub j ec t (X) ) , !. 

ac t i on (me s s age ,X) a s s e r t a (me s s a ge (X) ) , !. 

act ion( ready_to_send, send) 1 a s t _ s en t _ms g (LSM) , 

current_date(CD) , receiver(Rname) , message(M), 
assertz(sent _me ssage( s , ’ , LSM, Da t e ,Rn ame ,M) ) , 

re t rac t ( 1 a s t_sen t_msg(LSM) ) , NL5M is LSM + 1, 
asser tz( last_sent _ms g (NLSM )), retract(receiver(Rn ame ) ) , 

ret ract (ccreceiver (CCR) ) , retract (me s s age (M) ) , 
retract (message_subj ect (MS) ) t !. 

current _date(* 14 -Apr -88 *). 

/ * sorts messages with message number */ 

sor t_mes sages bagof (N,A"B"C"D"E"me s s age (A,B ,N,C,D, E) ,L) , 
sort(L,SN), sortl(SN),!. 

sortl(SN) first (SN, F ) , message (A, B,F,C,D,E) .retract (me ssage(A,B,F,C,D,E) ) 
a s s e r t z (me ssage(A,B,F,C,D,E) ) ,delete(F, SN.NSN) , s or t 1 (NSN) . 

sor t 1 (SN) . 



f irst( [XIL] ,X) . 



delete (X, [],[]). 

de 1 e t e (X, l X I L] ,M) !, de 1 e t e (X,L.M) . 

delete (X» [YIL] , [YIM] ) de 1 e t e (X t L,M) . 



/* read in each character and convert it into list of ASCII codes */ 
/* until carriage return is pressed. */ 

niceread(L) checkre t r ac t ( r eadbuf f (L2 ) ) , asser t a( readbuf f ([])), 
n i c e read2 (L) , ! . 

niceread2(L) :- getO(C), n i c e r e ad3 (C. L) . 



/* niceread3(32,L) niceread2(L). <== ignore the spaces. */ 



n i ceread3( 10 ,L) :- !, r e adbu f f (L2 ) , r e ve r s e (L2 , L ) . 
n i ce read3 (C,L) readbu f f ( L3 ) , re t rac t ( readbuf f (L3 )) , 

asserta(readbuff([CIL3] ) ), niceread2(L). 



checkretract(S) :- call(S), ret ract (S) , !. 
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checkre tract(S) . 

reverse (L,R) re ve r s e2 (L , [ ] ,R) . 

reve rse2([],L,L) !. 

r e ve r s e 2 ! [XI L] , R, S ) reve r se2(L, [XIR] ,S ) . 

conve r t ( [C IT] , In I ) T = [],Int is C-48. 

convert ( [CIT] , 1 n t ) T >47, T < 58, Int is ( ( (C- 48 ) * 10 ) + (T- 48 ) ) . 

conve r t ! [CIT] , In l ) nwr i t e ( [C I T] ) ,wr i t e ( * <== Invalid input!’), nl. 

/* code for reading the message user types in as a list of lists. * / 

r e ad_me s s age (L) 

wr i te( ’Please type your message; terminate with a con t ro 1 -X. ’ ) , nl, 
write(’ and a carriage return.’), nl, 

re ad_mes s age2(L) . 

r e ad_me s s age2 ( [XI L] ) niceread(X), r e ad_me s s age 3 (X, L) . 

r e ad_me s s age 3 (X, [ ] ) t e rmi n a t i on (X) , !. 

r e ad_me s s age 3 (X, L) r e ad_me s s age 2 ( L) . 

t e rmi n a t i on ( L) last(L,24). 

1 a s t ( [X] ,X) ! . 

last( [XIL] ,Y) last(L,Y). 

/* write the message list ==> each sub list as a separate line. * / 
wr i t e_me s s age ( [ ] ) !. 

wr i t e_me s s age ( [XI L] ) writel(X), nl, wr i t e_me s s age (L) . 
wr i t e 1 ( [ ] ) . 

wr i t e 1 ( [XI I Ll ] ) put(Xl), writel(Ll). 

/* write the list of ASCII code into character string. */ 



nwr i t e ( [ ] ) . 

nwr i t e ( [XIR] ) : - 


pu t (X) , nwr i 


t e (R) . 




/ * me s s a g e 
me s s a g e ( 0 , 


headers * / 

’ , 1 , ’ 25 - Jun * , 


’Tutor 


* , ’Exercise #1’). 


message(0. 


* 


’ ,2, ’27- Jun’ , 


’Gen . X 


’ , ’Task #2’ ) . 


me s s age ( d , 


’ D 


’ ,3, ’28- Jun’ , 


’Tutor 


’ , ’Ga rbage ’ ) . 


me s s age ( a , 


’ A 


’ ,4, ’29- Jun’ , 


’Gen. Z 


’ , ’Rep 1 y Needed ’ ) . 


me s s a g e ( f , 


F 


’ ,5, ’30- Jun’ , 


’Tutor 


, ’Special No t e ’ ) . 


me s s age ( 0 , 


* 


’ ,6, ’ 1- Jul ’ , 


'Tutor 


’ , ’Exe r c i s e #6 ’ ) . 


me s s a g e ( a , 


’ A 


’ ,7, ’30- Jun’ , 


’Gen . Z 


’ , ’Rep 1 y Needed’). 


me s s a g e ( d , 


’ D 


’ ,8 , ’ 3- Jul ’ , 


’ Somebody 


’, ’Another Garbage’). 


message! f , 


F 


’ ,9, ’ 5- Jul ’ , 


’Gen. S 


’, ’Another Special Note’) 


me s s a g e ! u , 


’U 


,10,’ 5 - Ju 1 ’ , 


’Tutor 


’,’ Exercise #10’). 


me s s a g e ( u , 


’U 


,11,’ 7- Jul ’ , 


’Tutor 


’ , ’Delete this file*). 


me s s a g e ! u , 


’U 


, 12, ’ 10- Jul ’ , 


’Gen . X 


’ , ’Task #12* ) . 



/+ contents of messages */ 



me ssage_content ! 1 , 


This 


i s 


the 


content 


of 


me s s a g e 


number 


1 . 


* ) 


me ssage_content(2, 


Th i s 


i s 


t h e 


content 


of 


me s s age 


n umb e r 


2. 


’) 


me ssage_content (3, ’ 


This 


i s 


the 


content 


o f 


me s s age 


numbe r 


3. 


’ ) 


message_content(4. 


This 


i s 


the 


content 


of 


me s s age 


number 


4 . 


’ ) 


me ssage_content(5, 


This 


i s 


the 


content 


of 


message 


n umb e r 


5. 


’> 


me ssage_content(6, ’ 


Send 


a me s s a g e to GK@NPS . ARPA . 


* ) - 






me ssage_content(7, ’ 


Th i s 


i s 


the 


content 


of 


me s s age 


numbe r 


7. 


’ ) 


me ssage_cont ent (8 , 


Th i s 


i s 


the 


content 


o f 


me s sage 


numbe r 


8 . 


’ ) 


message_content(9, ’ 


This 


i s 


t he 


content 


o f 


me s s age 


numbe r 


9. 


’ ) 



me s s age_con t en t ( 10 , This is the content of message number 10.’) 
me s s age_con t en t ( 1 1 , ’ This is the content of message number 11.*) 
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message_content(12,’ This is the content of message number 
Since you have seen this me ssage, the unseen flag will be 



12 . 

r cmovcd . * ) . 



space 1 ( * ’ ) . 

space2 ( * * ) . 

space 3 ( * * ) . 

space4 ( * * ) . 
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r 



*/ 

*/ 

*/ 

*/ 

*/ 



/* Module Name: TUTOR 

r 

/* Author: Prof. Neil C. Rowe 
/ * 




/* Pr ob 1 em- i ndependen t code for "means-ends tutoring": tutoring for */ 

/* learning of sequences modelable by means-ends analysis. */ 

/* For an application, you must define: */ 

/* (1) r econmended (<d i f f e r ence> , <ope r a t o r> ) - - r econmend a t i on conditions */ 

/* (2) p recond i t i on (cope r a t or> , <f ac t 1 i s t > ) --precondition facts */ 

/* (3) de 1 e t epo s t cond i t i on (<ope r a t o r> ,<f ac t 1 i s t >) or */ 

/ * deletepostcondition(<operator>,<conditionlist>,<factlist>) * / 

/* --gives facts deleted by op.; 3-arg. form requires additional facts true */ 
/* (4) addpo s t cond i t i on ( cope r a t o r> , <f ac t 1 i s t> ) or */ 

/* addpo s t cond i t i on ( cope r a t o r> , <cond i t i on 1 i s t > , <f ac t 1 i s t > ) */ 

/* --gives facts added by op.; 3-arg. form requires additional facts true */ 

/* Some optional definitions you may include: */ 

/* (5) randsubs t (<op . > , [<subs t 1 i s t 1> ,<subs t 1 i s t 2> , . . . ] ) */ 

/* --gives r andom- sub s t i t u t i on triples or quadruples, each in the form: */ 

/* [<i n i t i a 1 - f ac t > , <end i ng - f ac t > , <t r an s i t i on -pr ob . > , <me s s age to user> */ 

/* Note: first and second arguments can be the word "none"; */ 

/* fourth argument is optional. */ 

/* (6) nopre f (cope ra tor 1> ,<opera tor2>) --if the order (priority) of two */ 

/* operators in the " r econmended " rules was arbitrary, include this fact */ 
/* (7) in t ro(<t ext>) --introductory info for student */ 

/* (8) debugflag --if asserted, debugging info printed re means -ends anal. */ 
tutor(State, Go a 1 ) :- 

no t ( check_obv i ou s_e r ro r s ) , i ssue_warnings , randinit, 
uniqueassert ( t op_goa 1 (Goal ) ) , 

bagof (X,P A precondi t ion(X,P) ,XL) , uniqueassert(op_list (XL) ) , 
one e_mean s_end s (State ,Goa 1 , Op 1 i s t 2 ,Goa 1 s t a t e2 ) , 

uniqueassert ( t op_so 1 ution(Statelist)), aboli sh (ma inline_states,4), 
me ans_ends_tutor(State , Go a 1 ,Opl ist , Go a 1 s t a t e , []) , 
nl , nl , ! . 

tutor(State,Goal) :- 

write(’Too bad: a solution is now impossible.’), nl, !. 

me an s_end s_ t u t o r ( S t a t e ,Goa 1 , [ ] , S t a t e , S t ack ) :- d i f f e r ence (Goa 1 , S t a t e , [ ] ) , !. 

me an s_end s_ t utor(State ,Goal ,Op 1 ist, State, Stack) : - membe r ( [ S t a t e ,Goa 1 ] , S t ack ) , 
! , fail. 

me ans_ends_t utor(State ,Goa 1 ,Op list ,Goa lstate, Stack) :- 

no t ( once_means_ends (S t a t e ,Goa 1 ,Opl i s t ,Goa 1 s t a t e ) ) , !, fail. 

means_ends_t u t or (S t a t e ,Goa 1 ,Opl i s t ,Goa lstate, Stack) :- 
d i f f e re nee (Goa 1 , S t a t e ,D) , 
app 1 i cab 1 e_op (D,Op ) , 
p recond i t i on (Op , Pre 1 i s t ) , 
all_achievable(State, Prelist), ! , 

means__ends_tutor(State,Prel i st ,Preopl ist , Prestate, [[State ,Goal ] IStack] ) , 

! , me t ( S t a t e , Go a 1 , Op list, Go alstate, Stack, Prelist ,Preoplist , Prestate, Op , D ) . 
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me t ( S t a t e , Goa 1 , Pr e op 1 i s t , Prestate, Stack, Prelist ,Pre op list, Prestate ,Op , D) : - 
difference! Goal, Prestate, []), !. 

me t ( S t a t e ,Goal ,Op list ,Goa lstate, Stack, Prelist ,Preoplist .Prestate ,Op ,D) : - 

d i f f e rence (Goa 1 , Pr e s t a t e ,D2 ) , no t ( app 1 i c ab 1 e_op (D2 , Op ) ) , !, 

mean s_ends_tutor(Prestate .Goa 1 ,Opl i s t 2 ,Goa 1 s t a t e , [ ] ) , 
append(Preopl i st ,Opl i s t2 ,OpI i s t ) . 

me t ( S t a t e ,Goa 1 ,Op 1 i s t ,Goa lstate, Stack, Prelist .Preoplist , Prestate ,Op ,D) : - 

check_wi t h_s t uden t (Op , Prestate ,D,NevX3p ) , 

get_deletepostcondit i on (NewOp , Prestate, Deletepost li st ) , 
de 1 e t e i t ems (De letepostlist , Prestate, Prestate2) , 
get_addpostcondi t i on (NewOp , Pr e s t a t e , Ad dp os t I i s t ) , 
uni on(Addpos tlist ,Prestate2,Postlist2) , 
do_randsubst (NewOp , Po s t 1 i s t 2 , Po s t 1 i s t ) , 
check_mai niine_return( Post list ), ! , 

/* Note last arg. below empty to allow for rands ubst returning to past state */ 
me ans_ends_tutor( Post list ,Goal , Post op list ,Goalstate, []), 
append(Preoplist , [NewOp I Pos t op 1 i s t ] ,Op 1 i s t ) . 

do_ intro intro(T), write(T), nl, !. 

do_i n t ro . 

/* Prob I em- de f i n i t i on errors */ 

check_obv i ou s_e r r or s s e t o f ( [M, A] , obv i ou s_e r r o r (M, A) ,MAL) , !, 

writepairlist (MAL) . 

obvious_er ror( ’precondition fact missing for operator ’ ,0) 
re commended (D,0) , not(precondition(0,L)). 

obv i ou s_e r r or ( * de 1 e t epos t cond i t i on fact missing for operator ’ ,0) 
reconmended(D.O) , not(get_deletepostcondi tion(0,S,L) ) . 

obv i ou s_e r r or ( ’ addpos t cond i t i on fact missing for operator ’ ,0) 
r e comnende d (D ,0) , not (get_addpostcondi t ion(0,S,L) ) . 

obv i ou s_e r ro r ( * " r ecorrmended" fact missing for operator ,0) 
precondition(0,L), not ( r e comnende d(D,0) ) . 

obv i ous_e r ro r (’" recommended" fact missing for operator ’ ,0) 
get_deletepostcondi tion(0,S,L) , not ( re commended (D,0) ) . 

obv i ou s_e r r or ( * " recommended” fact missing for operator ’ ,0) 
get_addpostcondi t ion(0,S,L) , not( r e commended (D ,0) ) . 

i s s ue_wa rn i ng s se tof ( [M, A] , pos s ib 1 e_er ror (M, A) ,MAL) , !, 

wr i t e ( ’Wa rn i ngs : ’ ) , nl, wr i t epa i r 1 i s t (MAL) , nl. 

issue _wa r n i n g s . 

pos s i b le_e r ror ( *Th i s fact is not creatable: ’ ,F) precondi t i on(0,PL) , 

backtracki ng_membe r ( F , PL ) , uncreat abl e(F) . 

writepai rlist( []). 

wr i t epa i r 1 i s t ( [ [X, Y] I L] ) write(X), write(Y), nl , wr i t epa i r 1 i s t ( L ) . 

/* Handling of randomness */ 

do_randsubs t (0,S ,NS ) r andsubs t (0,RL) , !, do_r andsub s t 2 (RL , S ,NS ) . 

do_randsubst(Q,S,S) . 
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do_ randsubst2( [] , S , S ) . 

do_r a nd sub s t 2 ( [ [ F ,NF , P] I L] , S ,NS ) r andom( 1000 ,K) , P1000 is P*1000, 
K=<P1000, change s t a t e (F ,NF, S ,S2 ) , !, do_r andsub s t 2 (L , S2 ,NS ) . 

do_r andsub s t 2 ( [ [F ,NF , P ,M] I L] , S ,NS ) :- r andom( 1000 ,K) , P1000 is P*1000, 

K=<P1000 f change s t a t e (F ,NF, S , S2 ) , !, write(M), nl, do_ r and s ub s t 2 (L , S2 ,NS ) 

dor andsubs t 2( [Cl L] ,S ,NS) do_r ands ub s t 2 (L , S ,NS ) . 

change s t a t e(none ,NF,S , [NFI S] ) !, no t (membe r (NF , S ) ) , 

wr i te( 'Random change made: *), nl, !. 

changes t a t e (F, none ,S ,S2) !, membe r (F , S ) , 

wr i t e ( ’Random change made: ’ ) , nl , !. 

change s t a t e ( F ,NF, S , [NF I S3 ] ) :- !, membe r(F,S), 

wr i t e ( ’Random change made: *), nl, !. 

p e rmu tation([],[]) :- I . 

pe rmu t a t i on (L , [ 1 1 PL] ) r andi t em(L, I ) , de 1 e t e ( I ,L ,L2 ) , pe rmu t a t i on (L2 , PL ) . 

r a nd i t em(L , I ) :- length(L,N), random(N,K), item(K,L,I). 

randinit :- C is cpu t ime * 1000 , FC is floor(C), S is FC mod 2311, 
uniqueassert (randseed(S) ) . 

r andom(N,K) :- randseed(S), nex t r and ( S ,NS ) , K is NS mod N, 
ret ract(randseed(S)) , asser t a( randsecd(NS) ) . 

next rand (S , NS) :- FIC is 100*cpu t ime , IC is floor(FIC), 

S2 is ((S*S)+IC) mod 2311, S3 is (S2*S2) mod 2311, NS is (S3*S) mod 2311. 

i t em(K, [ ] , I ) :- !, fail, 

i tem(K, [XIL] ,X) : - K=<1 , ! . 

i tem(K, [XIL] ,Y) :- Kml is K- 1 , i t em(Kml ,L,Y) . 



/ * Tutoring rules * / 

/* handle_s t udeu t_op rules have been added to the original code */ 
check_wi t h_s t uden t (O, S ,D,N0) :- 

membe r( level( Current _Leve 1 ) , S ) , 
t e imp r omp t(Current_Level ,P) , wri te(P) , 

niceread( LCoirma n d ) , n ame ( SConrna n d , LComma n d ) 
02 =. . [conmand ,Cu r ren t_Leve 1 ,SConmand] , 
handl e_s t uden t_op (02 ,0, S ,D,N0) , ! . 

handl e_s t uden t_op(0,0, S ,D,0) :- O =. . [P,CL,03], !, ac t i on (CL ,03 ) , !. 

hand 1 e_s t uden t_op(02 ,0, S ,D, NO) :- 02 =.. [P,CL,C], helpword(C), !, 
re spond_he I p (CL) , !, c heck_wi t h_s t uden t (O , S ,D ,N0) . 

handl e_s tuden t_op(02 ,0,S ,D, NO) :- 02 =.. [P,CL,C], he 1 p_ t a sk (C) , !, 
check_wi th_ student (0,S ,D,N0) . 

handl e_s tuden t_op(02 ,0,S ,D,0) 02 =.. [P,L,C], mstop(C),!, halt. 

handl e_s tudent_op(02 ,0,S ,D,0) 02 =.. [P,L,C], mabort(C),!, abort. 

h and 1 e_s t uden t _op (02 ,0, S ,D,N0) :- 02 =.. [P,L,C], mt race(C) . ! , trace, 
check_wi t h_ s t uden t (O , S ,D,N0) . 

h and 1 e_s t uden t _op (02 ,0 , S ,D ,N0) 1 eve 1 (Leve 1 ) , clieck_e r ror (Leve 1 ,02 ,N0) , ! , 

check_wi th_student (0,S ,D,N0) . 
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hand 1 e_s t uden t_op(02 ,0, S ,D,N0) op_Jist(0L), no t ( s i ng 1 emcmhe r (02 ,OL) ) , !, 

write( ’Tutor : Not a valid ope r a t o r - - p 1 e a s e choose one of the following: ’) 

1 e v e 1 ( CL ) , 

re spond_he lp (CL) , check_wi th_student(0,S ,D,NO) . 

h and 1 e_s t uden t _op (02 ,0 , S ,D ,M0) p recondi t ion (02 , P02) , d i f f e rence (P02 , S ,D2 ) 

not(D2=[]), !, wr i t e ( ’ Tu t o r : That operator requires that ’), 

wr i t e 1 i s t (D2 , pr econd ) , write(’.’), nl, 
che ck_wi th_student(0,S ,D,WO) . 

hand 1 e_s tuden t_op(02 ,0, S ,D,MO) app 1 y_op(02 , S , S ) , 

write! ’Tutor : That will not affect any t h i ng . ’ ) , n 1 , 
check_wi th_student(0,S ,D,NO) . 

handlers tuden t_op(02 ,0,S ,D,NO) app 1 y_op (02 , S , S2 ) , top_goal(G), 

no t ( one e_mean s_end s ( S2 ,G ,0L2 ,GS2 ) ) , l , 

write! ’Tutor : You cannot ever succeed if you do that.’), nl, 
c h e c k_w i th_s t udent (0,S ,D, MO ) . 

h and 1 e_s t ude n t _op(02 ,0 , S ,D,02 ) top_goal(G), apply_op(0,S ,S3 ) , 

app 1 y_op (02 , S , S2 ) , conip a r e_solutions(S3 ,G ,OL3 ,GS3 , S2 ,G ,0L2 ,GS2 ) , 
subs equence ( [OIOL3 ] ,OL2 ) , !, app 1 y_ops ( [0I0L3 ] , S , SL ,GS4 ) , 

e 1 imdups ( SL , ESL) , a s se r t a (ma inline_state s (ESL ,02 , S , O) ) , 

wr i t e ( ’Tu t or : That does not seem irrmediately helpful, but I will try it.’) 
nl , 02 =. . [P,CL,03], !, ac t i on (CL, 03 ) . 

h and 1 e_s t uden t _op (02 ,0 , S ,D,02 ) ( nopre f (02 ,0) ; nopre f (0,02 ) ) , !, 

wr i t e ( ’O.K. ’ ) , nl, 02= . . [P , CL, 03 ] , ac t i on (CL, 03 ) . 

hand 1 e_s t uden t _op (02 ,0 , S ,D,02 ) top_goal(G), 

one e_mean spends ( S ,G ,OL , FS ) , no t (membe r (02 ,OL) ) , !, 

wr i t e ( ’Tu t o r : I will try it, but it is not recommended for the problem.’), 
nl, 02 =.. [P,CL,03], !, ac t ion(CL,03 ) . 

hand I e s tuden t_op(02 ,0,S ,D,02 ) top_goal(G), d i f f e rence (G , S ,D2 ) , 
all_achievable(S,D2), appl i cable_op(D2 ,03 ), precondition(03,PL), 
leas t_comnon_op(S ,G,0,02 , PL,Groo t ) , !, 

write(’Tutor: I will try it, but it is not reconmended first when ’), 

difference(Groot ,S,D5) , delete _uncreatable(D5 ,D6 ) , 

pe miu t a t i on (D6 ,D7 ) , wr i t e 1 i s t (D7 ,precond) , write(*.’), nl, 

02 =. . [ P ,CL ,03 ] , ! , 
ac t i on (CL ,03 ) . 

handle_s tudent_op(02 ,0,S ,D,02) 

wr i t e ( ’Tu t o r : Not the operator I would choose, but let us try it.’), nl, 

02 =. . [P ,CL,03 ] , ! , 
ac t i on (CL ,03 ) . 



t e imp r omp t ( t op , ’ % ’ ) . 
t e imp r omp t ( nxn , ’ Mvt> ’ ) . 
t e imp r omp t ( t o , ’ To : *). 

t e imp r omp t ( c c , ’ Cc : ’ ) . 

t e imp r omp t(subject,’Subj: ’). 

temiprompt(message, ’Message (end with ESCAPE or CTRL-D or CTRL-Z) : ’). 

t e rmpr omp t(ready_to_send,’S>’ ). 



h e 1 pwo r d ( h e 1 p ) . 
h e 1 pwo r d ( h ) . 
h e 1 pwo r d ( h u h ) . 
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h e 1 pwo r d ( ? ) . 

ms t op ( h a I t ) . 

ms t op ( 1 ogou t ) . 

mabo r t ( abo r t ) . 

he 1 p_t a sk ( ' ? t a sk ’ ) . 

mt r ace ( t race ) . 



/ * I n t e rme diate predicates used by the tutor * / 

1 e a s t _corrmon_op ( S ,G ,0 ,02 ,G2 ,G) once_mean spends ( S ,G2 ,OL ,NS ) , 

( no t (mcmbe r (0,OL) ) ; no t (membe r (02 ,OL) ) ) , !. 

1 e a s t_conmon_op(S ,G ,0,02 ,G2 ,Droo t ) di f f e r ence (G2 , S ,D) , a 1 1 _ach i e vab 1 e ( S ,D) , 

appl icable_op(D,03 ) , precondi t ion (03 ,G3) , 
least _conmon_op ( S ,G2 ,0,02 ,G3,Droot), !. 

c omp are_solut ions (S3 ,G,0L3 ,GS3 ,S2 ,G,OL2 ,GS2) 
one e_niean s_e nd s (S3 ,G,0L3 ,GS3 ) , 
once_means_ends(S2 ,G,0L2 ,GS2 ) , ! . 

cache_s t a t e s (S ,G, [ ] ,GS ) !. 

c ach e_s t a t e s ( S ,G . OL ,GS ) cached(S , G,OL.GS) , !. 

c ache_s t a t e s ( S ,G , OL ,GS ) c ach ed ( S2 ,G2 ,0L2 ,GS2 ) , check_pe rmu t a t i on(S , S2 ) , 

che ck_pe rmu t a t i on (G ,G2 ) , !. 

cache_states(S,G, [OIOL] ,GS) asser t a(cached(S ,G, [OIOL] ,GS) ) , 
app I y_op (O, S ,NS ) , cache_s t a t e s (NS ,G ,OL,GS) , !. 

a PP 1 y_°P s ( [] ,S, [ S ] ,S) : - ! . 

app!y_ops( [OIOL] , S , [S I SL] ,NS) appl y_op(0,S , S2 ) , app 1 y_op s (OL , S2 , SL ,NS ) . 

app 1 y_op (O , S ,NS ) ge t_de I e t epos t condi t i on(0, S ,DP) , de 1 e t e i t ems (DP , S , S2 ) , 

ge t_addpos t condi t ion(0,S ,AP) , un i on ( AP , S2 ,NS ) , !. 

che ck_ma i n 1 i ne_r e t u rn ( S ) ma i n 1 i ne_s t a t e s (SL ,0,0S ,BO) , 

check_mainl ine_return2(S ,SL,0,0S,B0) . 
check_mainl ine_return(S) . 

check_mainl ine_return2(S, [S2ISL] ,0,0S ,BO) : - pe rmu t emembe r ( S , [ S 2 ] ) , 

!, write(’You are returning to a previous state.’), nl. 

check_ma in 1 i ne_r e t ur n2 ( S , SL ,0,0S ,BO) pe rmu t emembe r ( S , SL) , !, 

write(’Do you see now that your choice of the *), write(O), 
wr i t e ( * action in the state with the facts [’), wr i t e 1 i s t (OS , s t a t e ) , 
wri te( ’ ] was not the best choice; the ’), write(BO), 
write(* action would have been better.’), nl, 
retract (ma ini ine_states(SL.O,OS ,BO) ) . 

/* Natural language output */ 

wr i t e 1 i s t ( [ ] ,R) : - ! . 

wr i t e 1 i s t ( [X] ,R) !, wr i t e f ac t (X,R) . 

wr i t e 1 i s t ( [X, Y] ,R) !, wr i t e f ac t (X,R) , wr i t e ( ’ and ’), wr i t e f ac t (Y,R) . 

wr i t e 1 i s t (L,R) wr i t e 1 i s t 2(L,R) . 

wr i t e 1 i s 1 2 ( [X] ,R) !, write(’and *), wr i t e f ac t (X, R) . 

wr i t e 1 i s t 2( [XI L] .R) wr i t e f ac t (X ,R) , write(’, ’), wr i t e 1 i s t 2 (L , R) . 

writefact(F, state) atom(F), write(F). wr i t e ( ’ is true'). !. 
wr i t e f ac t ( no t ( F ) , s t a t e ) atom(F), !, write(F), wr i t e ( * is false'), !. 

wr i t e f ac t ( no t ( F ) , s t a t e ) F=. . [P,X] , atom(X), !, write(X), i s_f orm(X, IX) , 

write(IX), wri te( ’not ’), wr i t e ( P ) , !. 

wr i t e f ac t ( no t ( F ) , s t a t e ) F=..[P,X], !, wr i t e f ac t (X) , i s_f orm(X, IX) , 
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write(IX), wri te( ’not ’), write(P), !. 
writefact(not (F) .state) F=..[P,X,Y], !, write(X), wri te( ’ not ’), 

write(P), wri te( ’ ’), write(Y), !. 

writefact(F,state) F=. . [P,X] , atom(X), !, write(X), i s_form(X, IX) , 
write( IX) , wr i t e (P) , ! . 

wr i t cfact (F, s t at e ) F=..[P,X], !, wr i t cfac t (X, s t a t e ) , i s_f orm(X, IX) * 

write(IX), wr i t e ( P ) , !. 

writefact(F,state) F=..[P,X,Y], !, write(X), wri tc( ’ *), 

write(P). write( ’ *), write(Y), !. 

wr i t efac t (F, precond) atom(F), write(F), wri tc( ’ must be true’), !. 

wr i tefact(not (F) , precond) atom(F), !, write(F), wr i t e ( ' must be false’), ! 
wr i t e f ac t ( no t ( F) , precond ) F=..[P,X], atom(X), !, write(X), 

wr i t e ( ’ must not be ’), write(P), !. 
wr i t efac t (not (F) ,precond) F— ..[P,X], !, wr i t e f ac t (X, s t a t e ) , 

wri te( ’ must not be *), write(P), !. 

wr i t efact (not (F) ,precond) F=..[P,X,Y], !, write(X), wri te( ’ must not be *) 

write(P), write(’ ’ ) , write(Y). !. 
wr i t e fac t (F, precond) F=..[P,X], atom(X), !, write(X), 

write(’ must be ’), write(P), !. 
wr i t e f ac t ( F, p recond ) F=..[P,X], !, wr i t e f ac t (X , s t a t e ) , 

wr i t e ( ’ must be ’), write(P), !. 

wr i t efact (F, precond) F=..[P,X,Y], write(X), wr i t e ( * must be ’), write(P), 

wr i t e ( ’ ’ ) , wr i t e (Y) , ! . 

wr i t e f ac t ( F , op ) write(F), !. 

writefact(F.R) write(F). 
is_form(X,’ is ) not (atom(X) ) , !. 

is_form(X,* are ’) name(X,NX), 1 a s t (NX, 1 15 ) » !. 

i s_f o rm(X, * is ’ ) . 

/* The original means-ends program (used for "what if" reasoning) */ 

once_mean s_ends(St ate ,Goa 1 ,Op list ,Goa 1 s t a t e ) : - 
means__ends(State , Go a 1 , Op list. Go a 1 s t a t e ) , 
cache s tates(State ,Goa 1 ,Op 1 ist,Goalstate), !. 

means_ends(St ate ,Goa 1 ,Op 1 i s t ,Goa 1 s t a t e ) : - 

mean s_ends2(State ,Goa 1 ,Op 1 i s t ,Goa lstate, [] ) , writedebug7. 

me an s_e nd s 2 ( S t ate ,Goa 1 ,Op list ,Goa lstate, Stack) : - 

cached(St ate2 ,Goa 1 2 ,Op 1 i s t ,Goa lstate), c heck_pe rmu t at i on (Goa 1 ,Goa 12), 
check__pe rmu t a t i on (S t a t e ,S t a t e2 ) , !, wr i t edebug6(St ack) , !. 

mean s_ends2(St ate ,Goa 1 ,Opl i s t ,Goa lstate, Stack) : - membe r ( [S t a t e ,Goa 1 ] , S t ack ) , 
!, wr i t edebug4( S t ack ) , fail. 

means_ends2(St a t e ,Goal , [ ] ,St a t e ,S t ack) d i f f e r enc e (Goa l , S t a t e , [ ] ) , !. 

me ans_ends2(St ate, Go a 1 , Op list, Go alstate, Stack) difference( Go al , State, D) , 

app 1 i c ab 1 e_op (D,Ope r ator), precondition (Ope rator, Prelist ), 
al l_achievable(State, Prelist ), writedebugl (D,Ope rator, Stack), 
mean s_ends2(State, Prelist ,Preoplist , Prestate, [[State ,Goa 1 ] I S t ack ] ) , 
wr i tedebug2(Prest ate ,D ,Ope rator, Stack) , 

get_deletepostcondit ion(Operator , Prestate, De let epost 1 ist ) , 
de l e t e i t ems (Deletepostl ist , Prestate, Prestate2), 
get_addpostcondi t i on (Ope r ator, Prestate, Addpos t 1 i s t ) , 
union (Addpos t list ,Prestate2, Post list ), 

means_ends2(Post 1 i st ,Goa 1 , Po s t op 1 i s t ,Goa lstate, [[State ,Goa 1 ] I S t ack ] ) , 
wri t edebug3 (Goa 1 state , Operator, Stack) , 
append(Preoplist , [Ope rat or I Post op list], Oplist). 
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mean s_ends2(St ate ,Goa 1 ,Op 1 i s t ,Goa 1 state, Stack) : - 
wr i t edebug5 ( S t a t e ,Goa 1 , S t ack ) , !, fail. 



/ * Debugging tools */ 

wr i t edebug 1 (D,0, S t ack) n o t ( debug f 1 a g ) , !. 

wr i t edebug 1 (D,0, S t ack ) 1 eng t h ( S t ack ,Nnl ) , N is Nnl + 1 , wri tc( ’»Operat or ’), 

write(O), wr i t e ( * suggested at level ’), write(N), nl, 

wri te( ’ to achieve difference of ['), wr i t e 1 i s t (D, s t a t e ) , wr i t e ( * ] * ) , nl , !. 

wr i t edebug2( S ,D,0, S t ack ) no t ( debugf 1 ag ) , !. 

wr i t edebug2 ( S ,D,0, S t ack ) 1 eng t h ( S t ack ,Nnl ) , N is Nnl + 1 , 

wr i t e( ’»Oper a t or ’), write(O), write(’ applied at level *), write(N), nl , 
wri te( ’ to reduce difference of [*)» wr i t e 1 i s t (D , s t a t e ) , wr i t e( ’ ] ’ ) , nl, 
write('in state in which ’ ), writelist(S, state), nl, !. 

wr i t edebug3 ( S ,0, S t ack ) no t ( debug f 1 ag ) , !. 

wr i t edebug3(S ,0,St ack) 1 eng t h (S t ack ,Nnl ) , N is Nnl+1, wri te( *»Level ’), 

write(N), wr i t e ( ’ terminated at state in which ’ ) , writelist(S, state), nl, !. 

wr i t edebug4 ( S t ack ) no t ( debugf 1 ag ) , !. 
wr i t edebug4(S t ack ) 

wr i t e ( * »»Re a s on i ng found a potential infinite loop at level ’), 

1 eng t h (S t ack ,Nnl ) , N is Nnl+1, write(N), nl, !. 

wr i t edebug5 ( S t a t e ,Goa 1 , S t ack ) no t ( debug f 1 ag ) , !. 

wr i t edebug5 (S t a t e ,Goa 1 , S t ack ) wr i t e ( * »»Un so 1 vab 1 e problem at level *), 

1 eng t h (S t ack ,Nnl ) , N is Nnl+1, write(N), nl, write('for state ’), 

wr i t e 1 i s t (S t a t e , s t a t e ) , nl, wri te( ’ and goal ’), wr i t e 1 i s t (Goa 1 , s t a t e ) , nl, !. 

wr i t edebug6(St ack) no t ( debug f 1 ag ) , !. 

wr i t edebug6( S t ack ) wr i t e ( * >»>Pr ev i ou s 1 y computed solution used at level *), 
1 eng t h ( S t ack ,Nnl ) , N is Nnl+1, write(N), nl, !. 

writedebug7 no t (debugf 1 ag ) , !. 

wr i t edebug7 : - n 1 , ! . 

/* Miscellaneous utility functions */ 
delete _uncreat able( [] , []) . 

de 1 e t e_unc r ea t ab 1 e ( [XI L] ,M) uncreat abl e(X) , !, de 1 e t e_unc r e a t ab 1 e (L ,M) . 
de 1 e t e_unc r ea t abl e ( [XI L] , [XIM] ) de 1 e t e_unc r e a t ab 1 e (L ,M) . 

al l_achievable(S,G) d i f f e r ence (G , S ,D) , not (unachievable_member (D) ) . 

unach i e vab 1 e_membe r (D) back t r ack i ng_membe r ( F ,D) , unc r e a t ab 1 e ( F) . 

unc r ea t ab 1 e (F) p recond i t i on (O , L) , back t r ack i ng_membe r (F , L) , 

not ( in_pos tcondi t ion(F)) . 

i n_pos t cond i t i on( no t (F) ) any_de 1 e t epos t condi t i on(0,DPL) , membe r (F ,DPL) . 
i n_pos t cond i t i on ( no t (F) ) randsubs t (0,RSL) , membe r ([ F ,X,Y, Z] ,RSL ) . 

i n_pos t cond i t i on ( F) not (F=. . [not ,P] ) , any_addpos t cond i t i on (O, APL) , 

membe r (F ,APL) . 

i n_po s t cond i t i on ( F) no t (F= . . [not ,P] ) , r and sub s t (O, RSL ) , 

membe r([X,F,Y,Z] , RSL) . 

any_de 1 e t epos t cond i t i on (0,L) de 1 e t epos t cond i t i on (0,C,L) . 

any_de 1 e t epo s t cond i t i on (O, L) de 1 e t epos t cond i t i on (O, L) . 
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any_addpo s t cond i t i on (O , L) addpos t cond i t i on (0,C,L) . 

any_addpo s t cond i t i on (O, L) addpos t cond i t i on (0,L) . 

ge t_de 1 c t epos t condi t ion(O t S ,L) de 1 e t epo s t cond i t i on (O ,C , L) , 

fact subset ( C , S ) , !. 

ge t_dc 1 e t epos t condi t ion(O f S ,L) de 1 e t epo s t cond i t i on (O, L ) . 

ge t _addpos t cond i t i on (0,S ,L) addpos t cond i t ion(0,C,L) , f ac t subse t (C,S ) , !. 

ge t_addpos t condi t i on (O, S ,L) addpo s t c ond i t i on (O, L) . 

app 1 i c ab 1 e_op (D,0) sub s e t (D2 ,D) , r ec oirmended (D2 t O) . 

d i f f e r ence ( [ ] , S , [ ] ) . 

di f f e rence ( [ no t ( P) IG] , S ,G2 ) no t ( s i ng 1 emembe r (P , S ) ) , !, d i f f e renc e (G , S ,G2 ) . 

d i f f e rence ( [P IG] , S ,G2 ) s i ng 1 emembe r ( P , S ) , !, d i f f e rence (G , S ,G2 ) . 

difference! [PIG] , S, [P IG2] ) : - difference(G,S,G2) . 

subs e t ( [ ] . L) . 

subs e t ( [XI L] ,L2 ) s i ng 1 emembe r (X,L2 ) , subse t (L,L2) . 

f ac t subse t ( [ ] ,L) . 

fact subset! [not (P)IL].L2) no t ( s i ng 1 emembe r ( P , L2 )) , !, factsubset(L,L2). 

factsubset([not(P)IL],L2) S» fail. 

factsubset([PIL],L2) s i ng 1 emembe r ( P t L2 ) , fact subset (L,L2). 

member(X,L) s i ng 1 emembe r (X, L) . 
s i ng 1 emembe r (X, [XI L] ) !. 

s i ng 1 emembe r (X, [Y I L] ) s i ng 1 emembe r (X, L) . 

append! [ ] ,L,L) . 

append! [XI L] f L2 , [XI L3 ] ) append(L,L2 ,L3 ) . 

union! [] . 

un i on! [XI LI ] ,L2 ,L3 ) s i ng 1 emembe r !X.L2 ) , !, un i on (LI t L2 ,L3 ) . 

union! [XI LI ] ,L2, [XIL3] ) un i on (LI t L2 ,L3 ) . 

d e 1 e t e i t ems ( [ ] , L , L ) . 

de 1 e t e i t ems ( [XI L] ,L2 ,L3 ) delete(X,L2,L4), de 1 e t e i t ems (L , L4 , L3 ) . 
de 1 e t e (X, [],[]). 

delete (X, [XI L] ,M) !, de 1 e t e (X,L ,M) . 

delete (X,[YIL], [YIM] ) dc 1 e t e(X,L,M) . 

check_pe rmu t a t i on(L,M) subset (L,M) , subset(M,L) t !. 

subsequence! [ ] ,L) !. 

subsequence ( [XIL] t [XIM] ) : - subsequence (L ,M) . 

subsequence ( L, [XIM] ) subsequence(L,M) . 

pe rmu t emembe r (X, [XIL] ) !. 

pe rmu t emembe r (X, [Yl L] ) subset(X,Y), subset(Y,X), !. 

pe rmu t emembe r (X, [Y I L] ) pe rmu t emembe r (X, L) . 

last ( [X] ,X) . 

last ( [XIL] ,Y) 1 a s t (L V Y) . 

e 1 inidups ([],[]). 

e 1 imdups ( [XI L] .M) s i ng 1 emembe r(X,L) , !, e 1 imdups ( L ,M) . 

e 1 imdups ( [XI L] , [XIM] ) e 1 imdups (L ,M) . 
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un i quea s se r t (Q) Q=..[PIL], length(L,N), abo 1 i sh ( P , N) , asserta(Q). 

backt r ack i ng_membe r (X, [XI L] ) . 

back t r ack i ng_membe r (X, [Yl L] ) back t r ack i ng_membe r (X,L) . 
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*************** 



**********1 



Module Name: TASKS 

Author: Capt.Taewoo Kim, ROKA 



>**************** 



/ 

/ 

/ 

/ 

/ 

/ 

/ 



set_up :- r e con su 1 t ( t op s20-rnn) , 
re con s ult(tasks) , 
recon sul t( tutor) , 
save ( s aveds t a t e ) , 

go. 



go : - initialize, 
greet ing , 
i n t roduc t i on , 
i ssue_task, 
go. 

initialize asserta( level ( top) ) , 

asserta(last_sent _ms g ( 7 7 ) ) , 
a s se r t a ( cur ren t_msg( 12) ) , 
asserta(current_task(l)) . 



greeting :- nl ,wri t e( ’Tutor : Hi, what is your name? ’ ) , n i c e r e ad (Name ) , 
a s se r t a ( u se r (Name ) ) , nl, 

wri te( ’Tutor : Nice to meet you, ’), nwr i t e (Name ) ,wr i t e n 1 . 

introduction i n t r oduc t i on ( I ) , nl, wr i t e ( I ) , nl. 
introduction!’ Welcome to TOPS20 Mvl Se 1 f - 1 e arn i ng course. 

Type ”?" or ’’help” for the available commands 
and ” ? task” for the current task.’). 



i s sue_t ask :- ba go f (X, P * p r econd i t i on (X, P ) ,XL ) , un i que a s se r t ( op_l i s t (XL) ) , 
t a sk ( 1 ) . 

t a sk (N) : - n 1 , n 1 , 

ret ract (current_ta sk (CT) ) , asserta(current_task(N) ) , 
q(N,Q) , write(Q), nl,nl, 
t a sk 1 (N) , 

bN isN + 1 , task(W) . 

change_leve 1 (NL) re t r ac t ( 1 eve 1 (OL) ) , a s s e r t a ( 1 e ve 1 (NL ) ) . 

top_prompt :- nl, wri te( ’). 
nm_p romp t nl, write(’Mvt> ’). 
send_prompt nl, wr i t e ( ’ S> ’). 
read_prompt nl, write(’R> ’). 



/ * Basic tasks. * / 

q(l,’Tutor: We are now at the top level mode. 

Your fisrt exercise is to invoke the NM. ’ ) . 
taski(l) tu t or ( [ 1 eve 1 ( t op) ] , [ 1 evel (tmi) ] ) . 

q(2, ’Tutor: Good. Now, we are at the Md mode . 

Lets browse the headers of the current message in the mail box.’). 
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taskl(2) t u t o r ( [ 1 e ve 1 (mm) ] , [ i s su ed_coirmand (irm , * he ade r s current 1 )]). 



q ( 3 , 'Tu t o r : O.K. 

Lets browse the content of the current message.’). 
taskl(3) current_msg(K) , tutor( [level (nm) ], [seen(K) ] ) . 



q(4, ’Tutor: Now, go back to the top level again.’). 
taskl(4) t u t o r ( [ 1 e ve 1 (irm) ] , [ 1 e ve 1 ( t op ) ] ) . 



q(5, ’Tutor: All right. We came back to the TOP level. 

Now, lets browse all the headers of messages in the mail box.*). 
taskl(5) t u t o r ( [ 1 e ve 1 ( t op ) ] , [ 1 e ve 1 (mm) ] ) . 



q(6 , ’ ’ ) . 

taskl(6) t u t o r ( [ 1 e ve 1 (mm) ] , [ i s s ue d_c ommand(mm, * heade r s all’)]). 



q ( 7 , ’ Tu t o r : 
t a sk 1 ( 7 ) : - 



Now, list all the headers of flagged messages in the mail box 
t u t or ( [ level (mm) ] , [ i s sued_corrmand(imi, ’headers flag’)]). 



q(8, 'Tutor: Good. Now, set the flag on the message number 12.*). 
taskl(8) :- t u t or ( [ leve 1 (mm) ] , [ i s sued_conmand (nm, f 1 ag ) ] ) . 



q(9, ’Tutor: O.K. Now, list all the headers of flagged messages again.’). 
taskl(9) t u t or ([ leve 1 (mm) ],[ i s sued_command(nm, * header s flag’)]). 



q(10, ’Tutor: List all the headers of the unseen messages in Ihe mail box. 
taskl(lO) :- tutor( [ level (nm) ] , [ i ssued_comnand(imi, ’headers unseen’)]). 



q(ll, ’Tutor: All right. 

Now, lets browse the message number 10.’). 
taskl(ll) t u t o r ( [ 1 eve 1 (mm) ] , [ seen ( 10) ] ) . 



q(12, ’Tutor: Now, jump to the message number 7 in the mail box.’). 
taskl(12) tutor ([ level (mm) ], [moved(7) ]) . 



q(13, ’Tutor: All right. 

Now, lets browse the current message in the mail box again.’). 
taskl(13) :- cur ren t_msg(K) , t u t o r ( [ 1 e ve 1 (mm) ] , [seen(K)]). 

q(14, ’Tutor: Good. 

Now, browse the next message in the mail box.’). 
taskl(14) :- t u t or ([ leve 1 (nm) ],[ i s s ue d_c omniand (mm , next )]) . 

q(15, ’Tutor: Now, browse the previous message in the mail box.*). 
taskl(15) :- t u t or ( [ 1 eve 1 (mm) ] , [ i s sued_corrmand(mm, pr ev i ou s ) ] ) . 



q(16, ’Tutor: Good. Now, send a message to }@SRI-KL.’). 
taskl(16) :- t u t or ( [ 1 eve 1 (mm) ] , [ i s sued_corrmand( t o , ’3{2)SRI -KL’ ) , 
i s sued_conmand ( ready_to_send, send)] ) . 

q(17, ’Tutor: Exellent. 

Now, send a message to the address in message 6’). 
taskl(17) t u t or ( [ 1 eve 1 (mm) ] , 

[seen(6),is s ued_c ornmand ( t o ,A) , i s s ued_c ommand (read y_to_ send, send)] ). 



/ * Help message * / 
re spond_he lp(Le ve 1 ) :- nl. 
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wr i t e ( ’ Following are the possible corrmands at ’) 
wr i t e (Le ve 1 ) , wri te( ’ level: ’), nl.nl, 

1 e v e 1 _ c onrna n d s ( Le v e 1 ) . 



1 eve l_cotrmands (top) 
wr i t e ( ’ 
wr i t e ( * 
nl . 



irm * ) , n 1 , 
quit.’), n 1 



1 eve l_corrmands (nxu) 





wr i t e ( * 


answe r 


headers 


all 


list 




send 






n 1 




wri te( ’ 


copy 


he ade r s 


current 


1 ogou t 




type 






n 1 




wr i t e ( * 


delete 


he ade r s 


delete 


move 




unde 1 e t e 


’ ) , 


n 1 




wr i t e ( ’ 


ex i t 


he ade r s 


f lag 


next 




un f 1 ag 


’)• 


n 1 




wr i t e ( * 


expunge 


headers 


unseen 


previous 








n 1 




wr i t e ( * 


f 1 ag 


he lp 




qu i t 










n 1 




wr i te( ’ 
n 1 . 


f o rwa rd 


j ump 




read 








’ ) , 


nl 


level_conroands( read) 




















wr i t e ( ’ 




copy 


help 


qu i t 


un 


f 1 ag 




nl , 






wr i t e ( * 




delete 


list 


reply 






’ ), 


nl , 






wr i t e ( * 




f lag 


move 


send 






* ) , 


n 1 , 






wri te( 1 
n 1 . 




f orwa rd 


next 


unde 1 e t e 






# ), 


nl , 




1 eve l_commands ( send ) 




















wr i te ( ’ 




display 


headers 




send 


1 ) . 


nl , 








wr i t e ( * 
n 1 . 




erase 


qu i t 




type 


' ) . 


nl , 






/* 


Func t i on s 


of each c onrna n d * / 
















g> 


ve_de f (mm, qu i t ) wr i t e ( * This i 


s the function of command 


"quit 


" . ’ ) 






/* 


Ope r a t or 


definitions 


for me ans-ends analysis 


*/ 













/* Recotrmended operators for required goals. */ 

recoirmended( [is sued_command(X,Y) ] , cormiand(X, Y) ) . 

r ecorrmended( [ 1 eve 1 ( top) ] , command (nm,X) ) membe r (X, [ qu i t , q ] ) . 
r econniended( [level (mm) ] , c orrma nd( t op ,nm) ) . 
recorrmended( [level(to)] ,conmand(irm, send) ) . 
r e c onme nded( [level (cc)],c onrna n d ( t o , X ) ) . 
r econmended ( [level(subject )] , command (cc ,X) ) . 
r econmended( [level (me s s age ) ] , corrmand( subject ,Y) ) . 
r econmended ( [level ( re ady_t o_s end ) ] , command (me s s age ,X) ) . 



r ecorrmende d( [moved(K) ] , command (nm , C) ) not (var(K) ) , name (’jump * ,A1 ) , 
name(K,A2), appe nd (Al , A2 , AC) , name(C,AC). 

r e comme nded ([ s een (K) ], command (irm , t ype ) ) not(var(K) ) . cur rent_msg(K) . 

recorrmended( [ seen(K) ] , command (nm . C ) ) not(var(K)), nanie(’type ’ .Al ) , 

name(K,A2), append (Al ,A2 , AC) , name (C. AC). 

/* Preconditions for each operator. */ 
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p r econd i t i on( coimiand (L,X),[level(L)]). 

/* De 1 e t epo s t c ond i t i on s and Addpo s t cond i t i on s for each operators. */ 

de 1 e t epos tcondi t i on( corrmand(nm.Y) , [ | ) ordconmands(O) , membe r (Y .O) . 

addpostcondi t i on ( c orrmand (nm ,Y ) , [ i s sued_conmand (X, Y) ] ) : - 

ordconmands(O) , membe r (Y.O) . 

de 1 e t epos t condi t i on (comnand (nm,Y) ,[] ) not (var(Y) ) , 1 ong_ j ump_conrnand (Y, Z) . 

addpostcondi t ion( corrniand(mn,C) , [moved (K) , i s sued_c onmand (nm,C) ] ) 

1 ong_j ump_conmand(C ,K) . 

de 1 e t epos t cond i t i on ( c omnand(nm ,Y) ,[] ) not (var(Y) ) , 1 ong_ t y pe_c oninand ( Y, Z) . 

addpostcondi t i on ( c oninand (mm, C) , [ seen(K) , i s s ued_c onmand (nm,C) ] ) 

1 ong_t ype_conmand(C,K) . 

delete postc on di t i on ( comnand (rnn, type ) , [ ] ) . 

addpostcondi t ion ( comnand (nm , type) , [seen(K) , i ssued_cotrmand(imi, type) ] ) 

: - current _ms g (K) . 

deletepostcondi t ion( comnand ( t op ,nm) , flevel(top)]) . 

addpostcondi t i on ( c oninand ( top,nm) , [ i ssued_conroand( top.nm) , level (nm) ] ) . 
deletepostcondi tion ( command (nm , quit). [level (nm) ] ) . 

addpostcondi t ion(c onmand (nm, quit ) , [ i s s ued_c orrmand (nm, quit),level(top)]). 
deletepostcondi t i on ( comnand (nm , q ) , [ 1 eve 1 (nm) ] ) . 

addpostcondi t ion(c oninand (nm, q ) , [ i s s ued_c onmand (rnn ,quit),level(top)]). 
deletepostcondi t i on ( comnand (rnn , send) , [ level (nm) ] ) . 

addpostcondi t i on ( comnand (rnn, send ) , [ i s sued_conmand(nm, send) , level ( to) ] ) . 

deletepostcondi t ion(c onmand (X, Y) ,[level(X)]) : - 

membe r(X, [ to,cc, subject ,me ssage , ready_t o_send ] ) . 
addpostcondi t ion(c omnand( to,X) , [ level(cc) , is sued_conmand ( t o ,X) ] ) . 
addpostcondi t i on ( c onmand ( c c ,X), [level(subject ) ,i s sued_c onmand (cc ,X) ] ) . 
addpostcondi t ion(c onmand (subject ,X) , [level (me s s age ) , i s su ed_c onmand ( subject ,X) ] ) . 
addpostcondi t ion( comnand (me s s age ,X) , 

[ level ( ready_to_send) ,is sued_c onmand (me ssage, X)]) . 
addpostcondi t ion( comnand ( ready_to_send, send) , 

[ level (nm) , i s sued_c oilman d( ready_t o_send , send)] ) . 
addpostcondi t ion ( comnand ( ready_ t o_s end , qu i t ) , 

[ i s sued_c onmand (read y_ t o_ send, qui t ) ,level(ready_to_send)]) ♦ 

or dc onmand s ( [ an swe r , copy , delete, exit , expunge, flag, forwa rd, ’headers all’, 

’headers current ’ , ’headers delete’ , 'headers f 1 ag ’ , ’ he ade r s unseen*, 
help, list .logout ,move ,next .previous .undelete .unflag] ) . 

1 on g_ j ump_command (C,K) not(var(C)), name(C,AC), name(’jump ,AT) , 

append (AT, AK, AC) , name(K.AK), number (K). 

1 ong_t ype_coirmand(C,K) not(var(C)), name(C,AC), name(’type ,AT) , 
append (AT ,AK, AC) , name(K.AK), number(K). 

1 ong_he lp_conmand(C,HC) not (var(C)) , name(C.AC), name(’help ’ ,AT) , 
append (AT, AK, AC) , name(HC.AK). 

nopref (O, conmand(nm, type ) ) 0= ..[ comnand ,nm, C] , 1 ong_ t ype_c onmand (C,K) , 

curren t_msg (K) . 

nopre f (O, conrnand(nm, jump ) ) 0= ..[ comnand , rnn, C] , 1 ong_ j ump_conmand (O.K) , 

curren t_msg (K) . 



40 



nopre f ( q , qu i t ) . 
nopre f (n ,next ) . 
n op ref(p, previous). 



/* */ 

/* Module Name: (X)RRECTJ3RJR0R */ 

/* V 

/* Author: Capt.Taewoo Kim, ROKA */ 

/* */ 



/* Check against the possible error lists. * / 

check_e r ror (Leve 1 ,Nc onmand ,MD) Nc onmand =.. [ Pr ed , L ,Corrmand ] , 

not(val i d ( Level , Conma n d ) ) , 
check_e rrorl(Level ,Conmand t M s ^0 ) , 
ca 1 1 (Le ve 1 ,NND,ND) . 

ca 1 1 (Leve 1 ,NN0.N3) N3 =.. [command ,Leve 1 ,bN3] . 

/* checks error for short type errors */ 

check_errorl (Level , Sc onmand ,Nc onmand) : - type_e rror_l i st (Level ,Nc onmand , Li s t ) , 

membe r (Sconmand ,Li s t ) , 
ask_e rror (Leve 1 ,Nc onmand) . 

type_error_l i s t ( Level ,q, [a,s,w,l,2]) . 

t ype_e r ror_l i s t ( t op ,mm, [ nn , j j ,mj ,mn , jm, nm] ) . 

/* checks error for one mistype in the long c onmand */ 

check_e rrorl( Level ,Str ing_c onmand ,Cor rec t_c onmand) : - 

n ame (S t r i ng_c onmand ,Li s t _c onmand ) , 

1 eng t h (Li s t_c onmand ,Leng t h ) , Length > 2, 
val i d ( Level ,Any_val i d_c onmand ) , 
n ame (Any_v a 1 i d_c onmand , Va 1 i d_ 1 i s t _c onmand ) , 
one_di fference(Li s t_c onmand , Va 1 i d_l i s t _c onmand ) , 
name (Cor rec t_c onmand ,Va 1 i d_l i s t_c onmand ) , 
a sk_e r ror (Leve 1 , Co r rec t _c onmand ) . 

/* checks transposing error in c onmand */ 

check_e rrorl( Level ,Str i ng_c onmand , Transpose d_st r i ng_c onmand ) : - 

name (S t r i ng_c onmand ,Li s t_c onmand ) , 
do_t ranspose(Li s t_conrnand ,Tr an spo s ed_c omnand ) , 
name (Tran s pose d_s t r ing_c onmand ,Tr an spo s ed_c onmand ) , 
val i d ( Level , Transpose d_st ring_c onma n d ) , 
as k_error( Level , Transpose d_str i ng_c onmand ) . 

do_ t r an spose (L ,TL) t r an spo s e (L , TL) . 

t ranspose( [X,YIL] , [Y,XIL] ) . 

t ran spose ( [XI L] , [XI L2 ] ) t r an spo s e ( L , L2 ) . 

check_e r ror 1 (Leve 1 , Sconmand ,Nconmand ) name (Sconmand ,Aconmand) , 

t ype_e r ro r_l i s t 1 (Leve 1 ,Nc onmand ,Li s 1 1 ) , 
membe r (Ac onmand , Li s t 1 ) , 
a sk_e rror( Level ,Nc onmand ) . 

1 yp e _ e r ror_l i s t l(Level , Command, Error ) e (Command , Er ro r ) . 

e( trace, [[X, 114,97,99, 101] , [116, X,97,99, 101] , [116, 114, X,99, 101]] ) . 

/* checks error for level errors * / 

check_e rrorl( Level , Sconmand ,Nc onmand ) level _error_list( Level ,Nc onmand ) , 

correct_level_error( Level .Nc onmand ) . 

/* Correct the errors in misconception of level * / 
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co r r ec t _ 1 e ve 1 _e r ro r ( t op ,E) n 1 ,wr i t e ( ’Ooop s ! You can issue a ”’), 

write(E), wr i l e ( ’ " command only in the "MvT' level,*), 
nl.nl, write(*Try again. *),nl. 

/* 

NO =.. [ corrmand , t op ,E] , 

check_wi th_student (0,S ,D ,N0) , ! . 



co r r ec t _ 1 e ve 1 _e r ro r (rrm, E) n 1 , wr i t e ( ’Ooop s ! You can issue a "’), 

write(E), wr i t e ( ”' conmand only in the ’’TOP" level.’), 
nl.nl, write(*Try again. ’),nl. 

r 

ND [conmand ,nm,E] , 

check_wi t h_ student (O.S ,D,ND) , ! . 



/* Ask the user if he/she meant the valid conmnand. */ 

ask_e r ror(Leve 1 .Cor rec t_corrmand ) nl, 

wr i t e ( * Ooop s ! You mean "*), wr i t e (Co r r ec t ^command ) , wr i t e ( * " ? *), 
n i c e r e ad ( An swe r ) , nl, 

!, n ame (Ye s_o r_no , An swe r ) , 

NC =.. [corrmand ,Leve 1 , Cor rec t_command] , 
correct_error( Ye s_or_no, Level ,NC) . 

I* Correct the error if the answer is ’’yes" */ 

cor rec t_e r ror (A.Leve 1 ,NC) a f f i nna t i ve ( A) , nl, ac t i on (Leve 1 ,NC) , l. 
t ry_ a g a in(Le ve 1 ,NC) 

/* Correct the error if the answer is "no" */ 

correct _error(A, Level ,NC) nega t i ve ( A) , n 1 , 

!, wr i t e ( ’ P 1 e a s e , type the correct command .*), n 1 . 

/* If the answer is neither "yes” nor "no” */ 

co r rec t_e r r or (A.Leve 1 ,NC) nl, wr i t e ( ’ PI e a se , answer in "yes" or "no". ’ ) , 

nl, write(*==> ’), niceread(B), name(S,B), 
correct_error(S, Level ,NC) . 



/ * valid c orrma n d s in TOP level * / 

va 1 i d ( t op ,rrm) . 
va 1 i d( t op , q) . 

/* valid corrmand s in Mvl level */ 

valid (rrm , a n swe r ) . 

va 1 i d(rrm, copy ) . 

va 1 i d(rrm, delete). 

valid (rrm, exit). 

valid (rrm, expunge ) . 

valid (rrm, flag). 

valid (nm , f o rwa r d ) . 

va 1 i d (rrm , * he ade r s all’). 

va 1 i d (mm, ’ he ade r s current*). 

va 1 i d (rrm , ’ h e ad e r s delete’). 

va 1 i d (mm, ’ he ade r s flag’). 

va 1 i d (rrm , ’ heade r s unseen’). 
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valid (nm .help) . 
va 1 i d(mm, j unip ) . 
valid (nm, list), 
va 1 i d(nm, 1 ogou t ) . 
va 1 i d(nm,move ) . 
va 1 i d(rmi, next ) . 
valid (nm, previous), 
va 1 i d(nm, quit), 
valid (nm, q ) . 
valid (nm , read) . 
val i d(mm, send) . 
va 1 i d(nm, type ) . 
va 1 i d(nm, undelete) . 
va 1 i d(nm, unf lag). 

/* valid commands in READ mode */ 

val id( read, copy) . 
val id( read, delete) . 
val i d( r ead , flag), 
val id( read, forward) . 
val id( read, help) . 
va 1 i d( read , 1 i s t ) . 
val id( read .move ) . 
va 1 i d( r e ad , nex t ) . 
val i d( read .quit), 
val id(read.q) . 
val id(read, reply) . 
val i d( read , send) . 
valid(read, undelete), 
val id( read, unflag) . 

/* valid commands in SEN) mode */ 

val id( send.di splay) . 
val id(send, erase) . 
val id( send, headers ) . 
va 1 i d( s end .quit ) . 
val i d( s end , q ) . 
v a 1 i d ( s end .send), 
va 1 i d ( s end , t ype ) . 



1 eve 


1 _e r ror_ 


i s t ( t op , an swe r ) . 




1 eve 


1 _e r ror_ 


i s t ( t op , copy ) . 




1 eve 


1 _e r ror_ 


i s t ( t op , de 1 e t e ) . 




1 eve 


1 _e r r or_ 


i s t ( t op , exi t ) . 




1 eve 


1 _e r ror_ 


i s t ( t op , expunge ) 




1 eve 


1 _e r ror_ 


i s t ( t op , f 1 ag ) . 




1 e ve 


l_crror_ 


i s t ( t op , forward) 


. 


1 eve 


l_e r ror_ 


i s t ( t op , * heade r s 


air). 


1 eve 


1 _e r ror_ 


i s t ( t op , ’ heade r s 


an swe r 


1 eve 


1 _e r ror_ 


i s t ( t op , ’ heade r s 


delete 


1 eve 


1 _e r r or_ 


i s t ( t op , * heade r s 


flag* ) 


1 eve 


1 _e r ror_ 


i s t ( t op , ’ heade r s 


unseen 


1 eve 


1 _e r ror_ 


i s t ( t op , he 1 p ) . 




1 eve 


1 _e r ro r_ 


i s t ( t op , j ump ) . 




1 eve 


l_e r ror_ 


i s t ( t op .list). 




1 e ve 


1 _e r ror_ 


ist(top.next). 




1 e ve 


1 _e r ror_ 


i s t ( t op ,previ ous 


). 


1 e ve 


1 _e r ror_ 


i s t ( t op , r ead) . 





level_error_list( top, send) . 
level_error__l i st ( top. type) . 
level _error_l i st ( top, undelete) . 
level_er ror_l i st (mm, mm) . 

a f f i mi a t ive(yes) . 
affi rma t i ve ( yep ) . 
a f f i rma t i ve (yap) . 
affi mia t i ve ( y a ) . 
affi rma t i ve ( ye ) . 
affi rma t i ve ( ya ) . 
affi rma t i ve ( y ) . 
affirmat ive(right ). 
affirmat ive(ok) . 

neg a t i ve ( no ) . 
nega t ive(n) . 
nega t i ve (nop) . 
nega t i ve ( ne ve r ) . 

member (X, [XI L] ) . 

membe r (X, [YIL] ) member (X.L) . 

convert_st r i ng_ t o_ASCI I(List,Alist) conl(List,Tlist),reverse(Tlist,Alist). 
coni ( [],[]). 

conl([XIL],Alist) : - name (X,Asc i i ) , append (As c ii ,A1 i s t ,Nalist) ,conl(L,Nalist). 
one_di fference( [XI L] , [YIL] ) . 

one_d i f f e r ence ( [XI LI ] , [XI L2J ) one_di f f e r ence (LI ,L2 ) . 
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